Discussion :

[bertrandtess]

Salut je suis un debutant en base de données et en VB6, j'ai une table access et un formulaire dans VB6. je ne sais pas comment faire pour que àpartir de mon formulaire, je puisse remplir ma table. Ma table a trois champs (Nom ; Prenom et NumeroID) et même que le formulaire trois TextBox où vont être saisie ces informations. Aidé moi

[silahi]

Voici une exemple pour une connexion et insertion avec une base de donnée oracle avec DSN

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
numeroID = Trim(textBoxID.Text)
nom = Trim(textBoxNom.Text)
prenom = Trim(textBoxPrenom.Text)
 
'Ouverture de la connexion à la base de donnée
adodbConnection.Open "Provider=" & pilote & ";User Id=" & nomUtilisateur & ";Password=" & motDePasse Utilisateur & ";Data Source=" & Datasource
 
'Construction et exécution de la requete
adodbRecordset.Open "INSERT INTO maTable(Nom, Prenom, NumeroID) values (" & nom & "," & prenom & "," numeroID& ")", adodbConnection
 
'fermeture
adodbRecordset.Close
adodbConnection.Close

[Bilxadim]

Bonjour
Bien, moi je te propose ceci avec un exemple à l'appui

Là je vais donner un exemple d'une base de données Access format 2000.
1- Créer votre Base de données Access nommée le Mabase et vous le sauvegarder dans le même dossier où ous sauver otre projet VB
Créer votre table nommée matable avec comme champs NumeroID, prenom et nom. Ici NumeroID est la clé primaire de la table et vous mettez son type de donnée en Numero Auto comme ça ous n'aurait pas à le saisir.
2- Démarer Visual Basic 6.0
3- Commencer par créer une référence vers la bibliothéque en faisant menu Projet-Référence ensuite cocher la cage Microsoft ActivX DataObject 2.8 Library.
3- Sur votre feuille Form1 insèrer:
- deux labels, mettre sur leur propriètés caption respectivement Prénom et Nom.
- deux textBox et nommer les l'un TxtPnom et l'autre Txtnom.
- Un bouton de commande: propriété caption Ajouter
4- Double clisk sur la feuille et mets ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Déclaration et ouverture de la connection
Dim Conn as ADODB.Connection
Set Conn = New ADODB.Connection
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString= App.path & "\Mabase.mdb"
Conn.Open

5- Double click sur le bouton de commande Ajouter et met le code qui suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CmdAjout_Click()
Dim Sql As String
Set Rs = New ADODB.Recordset
Sql = "SELECT * FROM matable"
Rs.Open Sql, Conn, adOpenDynamic, adLockOptimistic
If TxtPnom.Text = "" Or TxtNom.Text = "" Then
    MsgBox "Veuillez renseigner tous les champs SVP!!", vbCritical, "Ajout d'utilisateurs"
    TxtPnom.SetFocus
    Exit Sub
End If
 
Rs.AddNew
Rs("prenom") = TxtPnom.Text
Rs("nom") = TxtNom.Text
Rs.Update
MsgBox "Utilisateur enregistré sous le Prénom  : " & TxtPnom.Text & "  Nom : " & TxtNom.Text
TxtPnom.Text = ""
TxtNom.Text = ""
End Sub

Bon courage
Cordialement