vb6(base de donnée)

asmagi · Inscrit le: 25 Avr 2008 Messages: 3

salut,
svp,comment faire une connection à une base de donnée sans utiliser data ou adodc,juste avec le code.Aussi comment remplir un combobox avec les informations de la base de donnée (en utilisant juste le code).
Ne tardez pas à me répondre.
Merci

avatarvb · Inscrit le: 21 Juin 2009 Messages: 1

Option Explicit
Public dbAdo As New Connection 'derclaration de base de donneé
Public rsAdo As New Recordset 'derclaration de table1
Public rsAdo1 As New Recordset 'derclaration de table2
Public Sql As String 'requet
Public Sql1 As String 'requet
'-----------------------------------------------
'cnxxx'
Public Sub cox()
On Error Resume Next
With dbAdo
.Provider = "Microsoft.Jet.OLEDB.4.0" ' Fournisseur d'accès
.Mode = adModeReadWrite ' Mode lecture écriture
.CursorLocation = adUseClient ' Type de curseur (
.Open App.Path & "Chemin de votre base de donnée"
End With
With rsAdo
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.ActiveConnection = dbAdo
.Open "Table1"
End With
With rsAdo1
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.ActiveConnection = dbAdo
.Open "Table2"
End With
End Sub
'----------------------------------------
'Decnxxx'
Public Sub Deconnect()
On Error GoTo fin
rsAdo.Close
rsAdo1.Close
Set rsAdo = Nothing
Set rsAdo1 = Nothing
dbAdo.Close
Set dbAdo = Nothing
Exit Sub
fin:
End Sub
'---------------------------------------
Smile

remarque

il faut Activé :

Microsoft activx data objects2.5 library
Microsoft data binding collection vb 6.0 (sp4)

Ninjakiwi · Inscrit le: 03 Aoû 2009 Messages: 2

Gracias a todos por su apoyo, eres el mejor!

plan solution commission de surendettement - commission de surendettement, vous pouvez demander un dossier de surendettement.plan solution commission de surendettement