Access No Vb6

[rodrigo noma]

Ola

Sou programador ASP e estou iniciando em VB, estou com uma dúvida em relação a BD Access.

No asp eu criaria uma conexão assim:

Set Cn = Server.CreateObject("ADODB.Connection")

ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;"

Cn.Open ConnString

No VB para criar uma conexão eu posso aproveitar a mesma string ou é muito diferente disto?

E onde eu coloco a string, no botão ou no form?

Obrigado

Rodrigo

[kuroi]

você tem que adicionar a referencia (Project -> References) ActiveX Data Objects.

pra fazer a conexao, deve funcionar assim:

Set cn = New ADODb.Connection

ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;"

Cn.Open ConnString[/code]

[rodrigo noma]

Opa, obrigado Kuroi....parece que deu certo a conexão....

quando eu executo o projeto e tento faezr um select ele me aparece uma mensagem assim:

"Nenhum valor foi fornecido para um ou mais parâmetros necessários"

O codigo esta assim:

Set Cn = New ADODB.Connection

ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\inetpub\wwwroot\vb\teste.mdb;"

Cn.Open ConnString

vValor1 = Text1.Text

Set Rs_Pesq = Cn.Execute("Select * from tb_teste where codigo=vValor1")

lblnome.Caption = Rs_Pesq("idade")

Obrigado pela ajuda

Rodrigo

[kuroi]

ai é igual você fazia no asp:

Set Rs_Pesq = Cn.Execute("Select * from tb_teste where codigo=" & vValor1)

vValor1 é uma variavel no Visual Basic, você não consegue acessa-la do access.

[rodrigo noma]

Jóia cara....deu certo.....

é estranho quando a gente tenta programar em outra linguagem.....fica meio perdido.........

mas obrigadao mesmo....

Abraços

Rodrigo