Danleonhart

Pessoal, Meu aplicativo VB-6 faz conexão com uma tabela do SQL... Como deleto um ítem de uma coluna da tabela ? Tipo assim: Em uma caixa de texto coloco o nome (banana), ao clicar em um botão ele executa uma busca na coluna(fruta) da tabela, se encontrado ele o deleta, se não, ele retorna uma mensagem: "Não encontrado". Tenho este script para banco em Access, mas não tá funfando com o SQL: Private Sub Deleta_Click() Dim Frt, Valor As String Dim existe As Boolean Frt = "Fruta" txt1.Text = Valor Set rs = New ADODB.Recordset rs.CursorLocation = adUseServer rs.Open "select * from tab3", con Do While rs.EOF = False If rs(Frt) = Valor Then existe = True If MsgBox("Deseja realmente excluir o Ítem?" & vbCrLf & rs("Fruta"), vbQuestion + vbYesNo, "Exclusão") = vbYes Then apaga = "delete from tab3 where '& Frt &' = '& Valor &'" con.Execute apaga End If End If rs.MoveNext Loop If existe = False Then MsgBox "Não encontrado." End If End Sub Tentei o mesmo com o banco SQL mas simplesmente não deleta...quando recarrego a tabela, o ítem ainda está lá... <_<

Pessoal...Conseguí !!! :lol: Finalmente fiz conexão entre meu aplicativo e o BD do SQL Server Compact Edition (SQL.CE.3.5) Foi luta descobrir onde estava errando...mas não vou entrar em detalhes... Usei a conexão citada no site indicado pelo Kuroi http://www.connectionstrings.com/sql-server-2005-ce#p10 porém estava apresentando um erro: ----------------------------------- Run-time error -2147217843 (80040e4d) Authentication failed. [,,,,] ----------------------------------- Então, resolví testar as ".dlls" dispostas na opção "References" ( e tem um bocadinho <_<)... dei sorte, e na segunda conseguí uma conexão, sem inserir os dados (meu script estava com erros), corrigí e BINGO ! Uma conexão perfeita com um BD seguro ! As referencias que ativei foram: -Microsoft ActiveX Data Object 2.8 Library - Para conexão ADO; -Microsoft SQL Server Compact Control - Para fazer funcionar a string de conexão. Ficou assim meu Modulo que utilizo para conexão: Public con As ADODB.Connection Public Rs As Recordset Public Function abb() Set con = New ADODB.Connection con.Open "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source=C:\Banco.sdf;" End Function Public Function fcb() con.Close End Function => Onde: "C:\Banco.sdf" é o local onde o arquivo ".SDF" está armazenado. Só para mais informação: Tenho instalado em meu PC : SQL Server 2008 R2 + SP1 Microsoft Visual Studio Professional SP1 SQL Server Management Studio Caso alguém esteja tentando sem sucesso...mas acho que, com o SQL Server 2005 + SQL Server Management Studio funciona também...pois acabei atualizando do 2005 para o 2008 R2 sem querer... :P Obrigado a todos que opinaram, e fica as informações para quem deseja tentar o SQLCE ao invés do tradicional Access ! ^_^

Olá Kuroi ! Não cara... tem outros projetos onde uso o "Format" e apresentou o mesmo problema...da mesma maneira na string que uso para me conectar ao BD... e tá tudo declarado como manda o script... Me irei e já formatei tudo...:)

Amigos... Não sei o que aconteceu...após formatar instalei todos os programas que mais necessito no micro (Office, drivers, antivirus) e instalei o Visual Studio 2008 + SP1... e depois instalei o Visual Studio 6.0 + SP 6... e usei normalmente para criar novos aplicativos. Porém, necessitei incrementar algo em um aplicativo que criei e coloquei na empresa onde trabalho, só que, quando abrí o projeto salvo (back-up antes da formatação) ele já indicou falta de uma ".DLL"... fui lá e instalei e registrei a ".DLL"... quando apertei "F5" (Debug) foi quando apresentou o erro que coloquei no inicio do post. Conclusão: Minha paciencia se esgotou...formatei novamente meu PC, e vou instalar antes do Visual Studio 2008 o Visual Studio 6.0. Antes de formatar usava os dois sem problema ou conflito algum, porém em sequência de instalação, instalei primeiro o VS-6.0. O projeto salvo não apresenta erro nenhum (antes que alguém poste aqui, pois foi o que pensei também), instalei em uma VM e rodou belezinha... porém na VM não tinha o VS-2008 SP1. Bem, odeio ficar formatando meu PC por besteira, mas não quero ficar sem o VB6 ainda, pois o pouco que aprendí de programação foi com ele... Valeu pessoal !

Sim, o Office já está instalado... creio que isso não tenha nada a ver com o Office (não sei) também não tem nada a ver com a instalação do SP-6, pois instalei em uma máquina virtual tanto o VB-6 quanto o SP-6 e rodou meu projeto beleza... acho que corrompeu alguma Biblioteca... veja que ele diz que não encontra Projeto ou "Libray"... creio que seja a Library... agora qual ??? mais uma vez a Microsoft faz M$#*@ ! poderia dizer qual biblioteca que está faltando...

Pessoal... Precisei formatar meu PC... então reinstalei tudo novamente <_< inclusive o Visual Studio 6.0... acrescentei o SP-6 agora, porém tem alguns projetos que não estão abrindo ou executando...acho, não tenho certeza, que foi por causa do SP-6... Aqui a imagem de um dos projetos que não está abrindo, e a linha do script onde apresenta o erro: Antes da formatação "debugava" beleza :angry: Se alguém sabe o que pode ser me diz aê !

Pessoal... Como faço para deixar o "Data Type" da coluna de uma tabela do SQL Serve do mesmo tipo do Access (com Numeração automática).

Já descobrí ! para ocultar: SetAttr "D:\Teste.txt", vbHidden Para mostrar: SetAttr "D:\Teste.txt", vbNormal :P ^_^ ;)

Mais uma dúvida... Como faço para ocultar um arquivo ? Aquele comando MS-DOS : "Attrib +h C:\Teste.txt" tentei assim: Shell "attrib +h""D:\Teste.txt""" *** E assim: Shell "cmd""attrib +h""D:\Teste.txt""""" Sem sucesso... <_<

- Sim, fiz isso...no registro aponta para o Microsoft.SQLSERVER.CE.OLEDB.3.5. - Tenho a versão atualizada do SP-1 de todo o Visual Studio 2008 ( ISO de 3.3 GB), contido nele, vem este instalador...tanto que baixei e quando fui executar, de cara apareceu as opções de "Reparar" ou "Desinstalar". - Mais uma demonstração de grande irresponsabilidade da Microsoft...se VB-6 é obsoleto, e o SQL não funciona em conjunto...era pra no mínimo eles colocarem na tosca da Home Page deles uma observação <_< ...apesar de ultrapassado, o VB-6 ainda desenvolve muitos aplicativos por aí...e em alguns casos não é tão complexo quanto o VB.NET (opinião pessoal). Bem, mas uma dúvida foi esclarecida, que o script do Modulo que uso para conexão tá correta...tentei via "interface" usando o Data Environment, mas também apresentou um erro... que está em outro post, lá no Banco de Dados: http://scriptbrasil.com.br/forum/index.php?showtopic=156730

Pessoal... Reativando o tópico :) insistindo com o SQL Server CE 3.5 (pois se existe é porque funciona) Quando tento conectar com o BD surge este erro: E aponta para esta linha do script: esta linha faz parte do modulo que uso para configurar a conexão: Public con As ADODB.Connection Public rs As Recordset Public Function abb() Set con = New ADODB.Connection con.Open "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;DataSource=E:\banco.sdf" End Function Public Function fcb() con.Close End Function alguém sabe onde está o possível erro ??? tentei ativar "Referencias" que estivessem ligado ao SQLCE mas não encontrei nada...a não ser uma ".dll" que até registrei mas não fez efeito algum (sqlceoledb35.dll). Tou perdidaço, e por questão de honra (e necessidade) quero saber como linkar meu aplicativo com o SQLCE.

Valeu Kuroi ! obrigado mais uma vez :) Deu certinho a dica: Private Sub CommandButton_Click() Shell "Notepad ""C:\Teste.txt""", vbNormalFocus End Sub Coisinha bem simples mas me pegou <_< :lol: Valeu !!!

Dúvida simples... Como faço para abrir um arquivo que está em uma pasta do PC utilizando o comando "Shell" ?! Estou fazendo assim: Shell("C:\Teste.txt") mas está apresentando o seguinte erro: "Run-time error '5': Invalide procedure call or argument. ajudinha aê...

Pessoal, seguinte... Como faço para que o RecorSet seja atualizado automaticamente sempre que houver uma alteração no BD... Tipo: toda vez que for incluso algo no BD, ou for excluído ou alterado...que o RecordSet seja atualizado e mostrado, por exemplo, em um MSFlexGrid.

Pessoal... Estou tentando criar uma conexão entre um aplicativo VB-6 e banco de dados SQL (arquivo .MDF),aponto onde está o arquivo do BD e tudo, porém quando vou testar a conexão apresenta a seguinte mensagem: Uso para conexão o provedor: "Microsoft OLE DB Provider fro SQL Server". Já coloquei na opção "Nome de Usuário" o meu login do PC, mas mesmo assim não estou conseguindo a conexão.

Olá a todos ! Obrigado mais uma vez Kuroi & Matheus, como sempre vocês estão a tirar muitas das minhas dúvidas :rolleyes: Meu projeto ficou do jeito que eu esperava... coloquei assim no Botão de Filtro (só exemplo, depois irei melhorar e ampliar): Private Sub Filtrar_Click() List1.Clear EST = InputBox("Informe o Estado que deseja filtrar.") If EST <> Empty Then Set rs = New ADODB.Recordset rs.CursorLocation = adUseServer rs.Open "select * from table1 where UF= '" & EST & "'", con Do While Not rs.EOF List1.AddItem rs("Nome") rs.MoveNext Loop End If End Sub Onde: "rs" é o RecordSet, "con" o objeto de conexão, "table1" a tabela em Access e "UF" a coluna em que realizei a busca. Vejam o vídeo : Video agradeço a todos, e fica a dica para outros iniciantes ! :D

Pessoal... Nunca fiz script de consulta com filtros em BD's (Access neste caso), então, como faço para fazer uma busca no BD onde o resultado apresente por exemplo: todos os usuários cadastrados do "RJ"... No meu BD há 5 colunas: ID = Código de registro ( PrimaryKey); Nome = nome dos usuários; Cidade = Cidade onde mora; UF = O estado onde mora; Telefone = Fone de contato. Então, como faço para fazer uma busca na coluna "UF", onde o resultado seja todos os usuários moradores no RJ. Primeira vez que vou fazer isso pessoal... espero ter explicado de uma maneira clara...

É... o Form é bem mais prático e atende as minhas necessidades...

Hooks ??? :rolleyes: Fala dificil não Kuroi ! (kkkk) Aê, sua dica foi mais além... não conhecia essa função "vbModal" que o "Show" tem... acredite que em meu projeto havia criado cerca de 6 Form's, e em todos ao chamar o Form seguinte coloquei assim: Private Sub CommandButton_Click() Form1.Enable = False Form2.Show End Sub Com isso, alterei para: Private Sub CommandButton_Click() Form2.Show vbModal End Sub Vivendo e aprendendo :D Ah! e resolví criar um Form, seguindo sua dica...do que chamar a InputBox ^_^ Valeu !

Objeto Printer não precisa ativar Componentes nem Referências. ^_^

Pessoal... Como faço pra colocar a função UCase (Letras Grande) em uma InputBox ? ou seja, tudo digitado na InputBox seja maiúsculo. VALEU ! :rolleyes:

O quê tem no formulário ? Bem, de todo jeito, com a função "Printer" é possível: EX: Você pode colocar em um botão (CommandButton) o script: Private Sub Command1_Click() Form1.PrintForm End Sub Neste exemplo, o botão aciona a impressão do que está no "Form1". ^_^

Kuroi, você usa Data Report ??? e Data Environment ? Cara ! configurei beleza a impressão do meu relatório com esse tal de Data Report + Data Environment (tuto que achei na NET). Porém tá com o mesmo erro... que é devido a configuração do local do banco: Após feito o aplicativo de instalação (Pelo InnoSetup + IStool), o endereço de localização do BD é: "C:\Arquivos de programas\Baths Manager\Temp.mdb" Então, será se rola esse "Same as Report" no Data Report ??? E onde o colocaria ??? :unsure:

É Kuroi, também acho...mas como vou fazer para corrigir este problema ? Quando estou no projeto ele abre no endereço: "D:\ProjetosVB\Banco.mdb" até porque é essa a linha de script lá do "Provider" (con.Open = "Provider ....." E depois de criado o Pack de instalação (com o InnoSetup & Istool) o endereço onde irão ficar todos os arquivos, inclusive o BD é: "C:\Arquivos de Programas\Meu Programa\Banco.mdb" Tens alguma dica boa para isso ?

Deu o mesmo erro... Solucionei geral o problema atualizando o Visual Studio 2008 para o SP1, e tá funcionando perfeitamente ! Fica a página da imagem ISO: Visual Studio 2008 SP1 em ISO Valeu !