Mathe

Olá Turma !!! Valeu pelas respostas. Vamos as dúvidas...rsrs Matheus, Fiquei imaginando numa tabela com 50 colunas por exemplo. Tenho que inserir nessa mesma linha todas as colunas e textbox ? Não há um meio mais "fast" de fazer o mesmo ? Caso meu BD não tenha senha, a linha de conexão ficaria assim ? cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\bd.mdb Danleonhart, Realmente Dan, minha intenção é realizar uma consulta para verificar se o código já existe no BD, se existir filtraria os dados, senão basta cadastrar. Mas isso eu até abandonei, POR ENQUANTO, pois é melhor da um passo de cada vez, já estou com tanta dificuldade para inserir dados. Pesquisei o fórum de VB quase todo e não achei seus tópicos, entrei até no teu perfil pra procurar, se tiver o link poste por favor, camarada. Muito obrigado a todos, espero um dia poder retribuir. []'s

Prezados, Sou iniciante em VB6, e espero aind chegar no nível de vocês. Não sei qual forma seria melhor para inserir dados num BD ACESS pelo VB6. Acabei optando por instruções SQL. Peguei um exemplo na net e tentei adaptar para minha situação, porém não estou conseguindo incluir de modo algum. Toda vez gera o erro 424 "Run time error". Posto abaixo como coloco a rotina. Agradeço desde já. Private Sub cmdSalvar_Click() Dim MinhaConexão As New ADODB.Connection Dim RsCx As New ADODB.Recordset Dim MinhaDatabase As New ADODB.Recordset Dim i As Integer, Ctrl, Codigo, nDias, Lins 'Cria a conexão MinhaConexão.CursorLocation = adUseClient [b]MinhaConexão.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "/LOC.mdb" & ";"[/b] ' O ERRO ACONTECE NESTA LINHA ' cria a consulta 'MinhaDatabase.Open "SELECT * FROM [Clientes] WHERE Codigo=" & txtcod & ";", MinhaConexão, adOpenKeyset, adLockOptimistic, adCmdText 'If Not MinhaDatabase.EOF Then 'MsgBox "Código já Cadastrado!", vbInformation, "REPETIÇÃO" 'Exit Sub 'End If MinhaDatabase.AddNew MinhaDatabase("Codigo") = Me.txtcod MinhaDatabase("nome") = Me.txtnome MinhaDatabase("DataNasc") = Me.txtdtn MinhaDatabase("CPF") = (Me.txtcpf) MinhaDatabase("RG") = Me.txtrg MinhaDatabase("Tel") = Me.txttel MinhaDatabase("Cel1") = Me.txtcel1 MinhaDatabase("Cel2") = Me.txtcel2 MinhaDatabase("Email") = Me.txtemail MinhaDatabase("Status") = Me.cbstatus MinhaDatabase("Logra") = Me.txtend MinhaDatabase("Num") = Me.txtnum MinhaDatabase("Comp") = Me.txtcomp MinhaDatabase("Cidade") = Me.txtcidade MinhaDatabase("Bairro") = Me.txtbairro MinhaDatabase("CEP") = Me.txtCEP 'MinhaDatabase("Foto") = Me.txtfoto MinhaDatabase.Update Set MinhaDatabase = Nothing Set MinhaConexão = Nothing limpa End Sub

Ok, galera !!! Como disse, estou iniciando agora com VB 6, mas achei simples demais a conexão e fiquei desconfiado. Vou fazer um programinha de controle financeiro para minha empresa e não quero criar algo para no final ver que não é funcional. []'s

Boa noite Sou iniciante em Visual Studio e Access embora já conheça alguma coisa de VBA do Excel. Mesmo assim é provável que faça algumas perguntas sem sentido para programadores mais experientes. estou fazendo uma conexão do Visual Studio 6.0 com Access utilizando o Adodc, e fiquei surpreso ao ver que praticamente não necessita de programação. Como sou novato fiquei um pouco assustado, a conexão seria simples assim mesmo ou esse tipo de conexão é limitada ? Enfim, ADO não necessita mesmo de programação ? []'s