geraldozys

alguém com uma luz no fim do túnel?

Dim DBConnect As New ADODB.Connection Dim RecSet As New ADODB.Recordset Dim Cmd As New ADODB.Command Private Sub Command1_Click() DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=root;Password=_$0ft$ul_;Option=3;" With Cmd .ActiveConnection = DBConnect .CommandType = adCmdText .CommandText = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where CODIGO_CLI = " & txtCodigo.Text & " " Set RecSet = .Execute End With With RecSet txtNome = !NOME_CLI txtCPFCNPJ = !CPF_CNPJ_CLI txtCidade = !CIDADE_CLI txtUF = !UF_CLI txtPessoa = !PESSOA_CLI txtEmail = !EMAIL_CLI End With End Sub continua não indo pra frente :(

Bom dia a tabela não está vazia, tem 2 registros na tabela.... e o código está dessa maneira: Dim DBConnect As New ADODB.Connection Dim RecSet As New Recordset Dim Cmd As New ADODB.Command Private Sub Command1_Click() DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=root;Password=teste;Option=3;" With Cmd .ActiveConnection = DBConnect .CommandType = adCmdText .CommandText = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where CODIGO_CLI = " & txtCodigo.Text & " " Set RecSet = .Execute End With With RecSet txtNome.Text = .Fields("NOME_CLI") txtCPFCNPJ.Text = .Fields("CPF_CNPJ_CLI") txtCidade.Text = .Fields("CIDADE_CLI") txtUF.Text = .Fields("UF_CLI") txtPessoa.Text = .Fields("PESSOA_CLI") txtEmail.Text = .Fields("EMAIL_CLI") End With End Sub o engraçado é q não dá erro nenhum quando clico no botão... apenas não preenche :(

fiz dessa maneira With RecSet txtNome.Text = .Fields("NOME_CLI") txtCPFCNPJ.Text = .Fields("CPF_CNPJ_CLI") txtCidade.Text = .Fields("CIDADE_CLI") txtUF.Text = .Fields("UF_CLI") txtPessoa.Text = .Fields("PESSOA_CLI") txtEmail.Text = .Fields("EMAIL_CLI") End With e não puxa... (vocês devem estar me axando o rei dos noobs.. heheheh)

bom.. dei uma ajeitada melhor no código, tava vendo q eu estava meio anormal.. hehehe Dim DBConnect As New ADODB.Connection Dim RecSet As New Recordset Dim Cmd As New ADODB.Command Private Sub Command1_Click() DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=root;Password=teste;Option=3;" With Cmd .ActiveConnection = DBConnect .CommandType = adCmdText .CommandText = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where CODIGO_CLI = " & txtCodigo.Text & " " Set RecSet = .Execute End With txtNome.Text = Cmd.Parameters("NOME_CLI") txtCPFCNPJ.Text = Cmd.Parameters("CPF_CNPJ_CLI") txtCidade.Text = Cmd.Parameters("CIDADE_CLI") txtUF.Text = Cmd.Parameters("UF_CLI") txtPessoa.Text = Cmd.Parameters("PESSOA_CLI") txtEmail.Text = Cmd.Parameters("EMAIL_CLI") End Sub está rodando beleza.. unica coisa que não está fazendo é trazendo os valores para os textbox, mas isso eu creio q conseguirei outra hora, e se não conseguir, tenho q criar outro tópico, afinal, eu creio que está resolvido esse.. hehehe creio q essa é a maneira certa. obrigado a todos pela ajuda :)

aqui está tda a babunça.. hehehe Private Sub Form_Load() Set DBConnect = New ADODB.Connection Set RecSet = New Recordset DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=root;Password=teste;Option=3;" StrSql = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where CODIGO_CLI = " & txtCodigo.Text & " " RecSet.Open StrSql, DBConnect, adOpenFowardOnly, adLockReadOnly End Sub quando executo, dá o seguinte erro: "Run-time error '-2147217900(80040e14)': [MySQL][ODBC 3.51 Driver][mysql-5.0.67-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to user near " at line 1" to pensando em desistir de vb... vo tentá convence o chefe a usá .net q é muito melhor :( minha sql tá certinha pombas... axo que é complô do vb 6.. só porque eu prefiro o .net.. aiuhauihuahuia

a não ser que o windows esteja me sacaneando, é apenas essa a msg d erro.. e a linha tda está aqui StrSql = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where CODIGO_CLI =" & txtCodigo.Text & " "

essa eu tava enganado mesmo.. na verdade é o código.. ehhehe e o erro que dá é : "Compile error: Syntax error" ou seja.. erro de sintaxe... e fica selecionado a linha do RecSet RecSet.Open(StrSql, DBConnect, adOpenFowardOnly, adLockReadOnly)

olá. desculpe a demora para responder. assim.. eu utilizei dessa maneira Private Sub Form_Load() Set DBConnect = New ADODB.Connection Set RecSet = New Recordset DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=root;Password=teste;Option=3;" StrSql = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where NOME_CLI =" & txtCodigo.Text RecSet.Open(StrSql, DBConnect, adOpenFowardOnly, adLockReadOnly) End Sub e no caso diz erro de sintaxe, e fica em vermelho a linha do RecSet... já não sei o que fazer, isso que estou no início do projeto e tenho até sexta feira pra entregar :(

Bom dia, Estou com um probleminha para fazer rodar esse pequeno código: Dim DBConnect As ADODB.Connection Dim RecSet As Recordset Dim StrSql As String Dim i As Integer Private Sub Form_Load() Set DBConnect = New ADODB.Connection Set RecSet = New Recordset DBConnect.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=teste; User=teste;Password=teste;Option=3;" StrSql = "select NOME_CLI, CPF_CNPJ_CLI, CIDADE_CLI, UF_CLI, PESSOA_CLI, EMAIL_CLI from cliente where NOME_CLI =" & txtCodigo.Text RecSet StrSql, DBConnect, adOpenFowardOnly, adLockReadOnly End Sub Quando eu executo esse código, ele dá o seguinte erro: "Expected procedure, not a variable".. eu vi e revi o código, mas não consigo entender que procedure eu preciso inserir... (eu nunca programei em vb antes, apenas em vb.net que eu julgo muito diferente)

bom dia a todos.... estou tentando criar um procedimento para cadastrar a ordenha diária quando se ordenha a matriz... a função está aki embaixo descrita Private Sub btnCadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCadastrar.Click Dim cad As New funcoes 'Cadastrando uma ordenha Try cad.CadastrarOrdenha(cmbMatriz.SelectedValue, CDate(dtpDataOrdenha.Text), txtNroOrdenha.Text, txtQtidade.Text) Catch ex As Exception MsgBox("Preencha os itens acima para efetuar o cadastro correto.", MsgBoxStyle.Critical, "Erro ao tentar cadastrar!") End Try MsgBox("Gostaria de inserir outra ordenha?", MsgBoxStyle.YesNo) 'Limpando os campos para um novo cadastro If MsgBoxResult.Yes Then txtNroOrdenha.Clear() txtQtidade.Clear() ElseIf MsgBoxResult.No Then cmbMatriz.SelectedValue = -1 cmbMatriz.Text = String.Empty txtNroOrdenha.Clear() txtQtidade.Clear() End If End Sub o problema está a partir da linha (deseja cadastrar outra ordenha) e o que eu pretendo fazer é o seguinte... caso a resposta seja sim, ele deveria limpar apenas os campos da quantidade da ordenha e o número da mesma... caso fosse não, limparia tdos os campos menos a data... outro problema q eu tenho... é para criar o laço que calculará a quantidade total da produção do leite no dia... vocês poderiam dar uma mãozona??? (porque mãozinha é pouco.. hehehe) muito obrigado pela perca de tempo lendo esse post e desde já agradeço a ajuda de todos :D