Boutton Ajout dans base de donnéesRésolu

Question

Salut tout le monde; 
J'ai fait ce code pour la commande ajout mais il ne marche quelqu'un peut il m'aider: 
Private Sub Command1_Click() 
With Data1.Recordset 
.AddNew 'ajoute un nouveau 
.Fields("Code_site") = Label6.Caption 
.Fields("Equip BTS") = Form1.Text14.Text 
.Fields("Equip BSC") = Form1.Text18.Text 
.Fields("Equip Trans1") = Form1.Text21.Text 
.Fields("Equip Trans2") = Form1.Text24.Text 
.Fields("Equip Trans3") = Form1.Text27.Text 
.Fields("Equip Trans4") = Form1.Text30.Text 
.Fields("Equip Trans5") = Form1.Text38.Text 
.Update 'Met a jour 
End With 
MsgBox ("l'ajout est termin&#233; avec succ&#233;s"), vbOKOnly + vbInformation, ("Ajout") 
End Sub 
Avec Equip BTS : champs de la table associ&#233; &#224; data1. 
Merci


BGM

bgm2 · Accepted Answer

Merci pour votre aide;
Mais mon code marche bien aussi , je me suis juste tromp&#233; au niveau des noms des champs.
Merci une autre fois. 


BGM

tbbuim1 · Answer

Avec ADO pour ins&#233;rer dans une tabvle je fais:

    Public db As New ADODB.Connection

    Public rs As Recordset

    Public DbName As String

    Public sql As String

    Set db = New Connection

    DbName = App.Path & "\Ab.mdb"

    db.CursorLocation = adUseClient

    db.Mode = adModeReadWrite

    db.Open "PROVIDER=MSDataShape;Data
PROVIDER=Microsoft.Jet.OLEDB.4.0;Data     Source=" &
DbName & ";"

    Set rs = New Recordset

    ' Assignation de la requ&#232;te

    sql = "INSERT INTO Ab (Ab,Texte) VALUES (""" & Ab.Text & """,'" & Texte.Text & "');"

    rs.Open sql, db, adOpenStatic, adLockOptimistic
    

'Ne pas oublier de r&#233;f&#233;rencer 

'Microsoft ActiveX Data Objects 2.5 library

'Microsoft ActiveX Data Objects Recordset 2.5 library

'Vive ADO
TBBUIM

Boutton Ajout dans base de données

2 réponses

Discussions similaires