CODIGOS

ADRIEL 27/05/2010 10:40:03
#342929
alguem pod me ajudar com os codigos...para fazer coneção do vb6 com access97?

o q eu tenho nw da certo....

flw....
JONATHANSTECKER 27/05/2010 10:52:07
#342932
Aqui tem um excelente material para fazer isso...

http://imasters.uol.com.br/artigo/1164/visual_basic/conexao_com_banco_de_dados_parte_01/

Atenciosamente,
Jonathan Stecker
ROBIU 27/05/2010 11:01:08
#342933
Muito vago. Posta a conexão que está fazendo ou, se possível, o projeto
MARCELO.TREZE 27/05/2010 11:04:08
#342935
simples colega, vá em PROJECT/REFERENCES... e selecione MICROSOFT ACTIVEX DATA OBJECTS 2.8 LIBRARY

agora crie um módulo em seu projeto e cole a seguinte função

Global Conexao As New ADODB.Connection

Public Function Conecta(ByVal Valor As Boolean)
 If Conexao.State = 1 Then
 Conexao.Close
 Set Conexao = Nothing
 Valor = True
 End If

If Valor = True Then
 Conexao.Open [Ô]provider=microsoft.jet.oledb.4.0; data source=[Ô] & App.Path & [Ô]\seubanco.mdb;jet OLEDB:System Database=system.mdw;[Ô]
Else
 Conexao.Close
 Set Conexao = Nothing
 End If
End Function



feto isso agora em seus forms deve proceder da seguinte maneira

suponha que vc possua 03 botoes, incluir, alterar e excluir

para inclusão de dados basta proceder da seguinte maneira

[ô]primeiro vc se conecta
Conecta True
[txt-color=#007100][ô]execute a inclusào basicamente conforme abaixo[/txt-color]
Conexao.Execute ([Ô]INSERT INTO tabela (campo1,campo2,campo3)  VALUES ([ô]valor1,[ô]valor2[ô],[ô]valor3[ô])[Ô])
[txt-color=#007100][ô]se desconecta[/txt-color]
Conecta False



para alteração basta proceder da seguinte maneira

Conecta True
Conexao.Execute ([Ô]UPDATE tabela SET campo2=[ô][Ô] & txtCampo2.Text & [Ô][ô],campo3=[ô][Ô] & txtcampo3.Text & [Ô][ô] WHERE campo1=[ô][Ô] & txtCampo1.Text & [Ô][ô][Ô])
Conecta False


Agora para exclusão

Conecta True
Conexao.Execute ([Ô]DELETE FROM tabelaWHERE campo1=[ô][Ô] & txtCampo1.Text & [Ô][ô][Ô])
Conecta False



agora que ensinei fazer estas tres operações, vo ensinar a fazer consultas

para consultas iremos declarar um recordset

Dim RS As Recordset

[txt-color=#007100][ô]Depois iremos setar esta consulta da seguinte maneira[/txt-color]

Conecta True
SQL = [Ô]SELECT * FROM tabela WHERE campo1=[ô][Ô] & txtCampo1.Text & [Ô][ô][Ô])
Set RS = Conexao.Execute(SQL

[txt-color=#007100][ô]se for exibir apenas uma cionsulta exata, ou seja apenas um resultado seria assim[/txt-color]

txtCampo2.Text = RS!campo2

[txt-color=#007100][ô]se for exibir uma sequencia de  resultados baseado na consulta seria assim[/txt-color]

Do While Not RS.EOF
List1.AddItem RS!campo2
RS.MoveNext
Loop

Conecta False


Bom com os dados acima, e uma explicação superficial acredito que já irá começar a entender como funciona

boa sorte, e se houverem duvidas pergunte
XXXANGELSXXX 28/05/2010 10:04:15
#343050
Marcelão.. agora se arrasou heim.. rs rsrs.. ADRIEL, voce tem que verificar o seguinte.. vai trabalhar com objeto vinculado ? DATASETS vinculados ou não? se for trabalhar vinculado esse codigo do Marcelo vai ser complexo para seu entendimento.. exemplo.. vinculado, voce coloca um objeto dataset no projeto, e para incluir um novo registro

DATA1.RECORDSET.ADDNEW

EXCLUIR
DATA1.RECORDSET.DELETE
DATA1.REFRESH

ALTERAR
DATA1.RECORDSET.EDIT

SALVAR
DATA1.RECORDSET.UPDATE
DATA1.REFRESH

Quem nunca trabalhou com datasets vinculados??? época boa viu... dava um tanto de pau no banco.. mas era bao.. rsrs .
ADRIEL 29/06/2010 15:52:43
#346081
vlw gurizada...
Tópico encerrado , respostas não são mais permitidas
Voltar