PROBLEMAS PARA ACESSAR VB6 COM ACCESS 2007
Estou com problemas para acessar VB6 com Access 2007.
Estou tentando fazer uma conexão com o Access 2007 e aparece uma mensagem que nao reconhece o banco de dados. Já mudei a versão do banco e mesmo assim nao reconheceu.
Nao sei mais o que fazer.
Alguém tem alguma solução para isto? Poderiam me ajudar?
Estou tentando fazer uma conexão com o Access 2007 e aparece uma mensagem que nao reconhece o banco de dados. Já mudei a versão do banco e mesmo assim nao reconheceu.
Nao sei mais o que fazer.
Alguém tem alguma solução para isto? Poderiam me ajudar?
O q vc esta usando?
ADO, DAO, qual o sistema operacional?
Coloca ai o comando para acessar o banco q vc esta usando e qual é a linha que ele da a mensagem
ADO, DAO, qual o sistema operacional?
Coloca ai o comando para acessar o banco q vc esta usando e qual é a linha que ele da a mensagem
[ô]Code sample vb6 connecting with Ms-Access 2007/2010
[ô]Exemplo vb6 conectando com Ms-Access 2007/2010
[ô]--------------------------------------------------------
Global sDirInstall
Global sMyDB As String
Global sMyDBVENDAS As String
[ô]---------------------------------------------------------
Sub UserInfo()
[ô]PROJECT -> REFERENCE: Microsoft ActiveX Data Objects 2.8 Library
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
sDirInstall = App.Path
sMyDB = sDirInstall & [Ô]\USER.accdb[Ô]
con.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & sMyDB & [Ô];Persist Security Info=False;Jet OLEDBatabase Password=[Ô]
rs.Index = [Ô]Primarykey[Ô]
rs.CursorLocation = adUseServer
rs.Open ([Ô]tb_User[Ô]), con, adOpenDynamic, adLockOptimistic, adCmdTableDirect
Do While Not rs.EOF
MsgBox rs.Fields([Ô]Userid[Ô]) & [Ô] - [Ô] & rs.Fields([Ô]Nome[Ô])
rs.MoveNext
Loop
rs.Seek Array([Ô]NewUser[Ô]), adSeekFirstEQ
If rs.EOF Then
rs.AddNew
rs.Fields([Ô]Userid[Ô]) = [Ô]NewUser[Ô]
rs.Fields([Ô]Nome[Ô]) = [Ô]USER NEW[Ô]
rs.Update
MsgBox [Ô]1 user added![Ô]
Else
rs.Fields([Ô]Nome[Ô]) = [Ô]USER NEW [Ô] & Now()
rs.Update
MsgBox [Ô]1 user changed![Ô]
End If
rs.Close
con.Close
End Sub
----------------------------------------------------------
Saudações / Saludos / Regards
HENDELCWB
[ô]Exemplo vb6 conectando com Ms-Access 2007/2010
[ô]--------------------------------------------------------
Global sDirInstall
Global sMyDB As String
Global sMyDBVENDAS As String
[ô]---------------------------------------------------------
Sub UserInfo()
[ô]PROJECT -> REFERENCE: Microsoft ActiveX Data Objects 2.8 Library
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
sDirInstall = App.Path
sMyDB = sDirInstall & [Ô]\USER.accdb[Ô]
con.Open [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & sMyDB & [Ô];Persist Security Info=False;Jet OLEDBatabase Password=[Ô]
rs.Index = [Ô]Primarykey[Ô]
rs.CursorLocation = adUseServer
rs.Open ([Ô]tb_User[Ô]), con, adOpenDynamic, adLockOptimistic, adCmdTableDirect
Do While Not rs.EOF
MsgBox rs.Fields([Ô]Userid[Ô]) & [Ô] - [Ô] & rs.Fields([Ô]Nome[Ô])
rs.MoveNext
Loop
rs.Seek Array([Ô]NewUser[Ô]), adSeekFirstEQ
If rs.EOF Then
rs.AddNew
rs.Fields([Ô]Userid[Ô]) = [Ô]NewUser[Ô]
rs.Fields([Ô]Nome[Ô]) = [Ô]USER NEW[Ô]
rs.Update
MsgBox [Ô]1 user added![Ô]
Else
rs.Fields([Ô]Nome[Ô]) = [Ô]USER NEW [Ô] & Now()
rs.Update
MsgBox [Ô]1 user changed![Ô]
End If
rs.Close
con.Close
End Sub
----------------------------------------------------------
Saudações / Saludos / Regards
HENDELCWB
Tópico encerrado , respostas não são mais permitidas