UPGRADE: VB6 COM ACCESS 2007 RESOLVIDO

HENDELCWB 07/01/2012 03:28:20
#392615

Amigos,

em retribuição às inúmeras vezes que o fórum me ajudou segue solução para um problema de migração que tive e agora compartilho com todos.

Sample VB6 Access 2007 using SEEK (after convert mdb to accdb) [/b][/txt-size]--------------------------------------------------------------------------------

[txt-size=2][ô]Code sample vb6 connecting with Ms-Access 2007/2010
[ô]Exemplo vb6 conectando com Ms-Access 2007/2010

[ô]--------------------------------------------------------
Global sDirInstall
Global sMyDB As String
[ô]---------------------------------------------------------
Sub UserInfo()

[ô]No VB6 marcar referência:
[ô]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 OLEDBDatabase 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[Ô]), adSeekMinEQ
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