Problème avec "requête SQL " - insert into

Question

Bonjour,

J'ai besoin besoin de votre aide... probl&#232;me de code.

Private Sub AnyButton100_Click()
Dim rstrunk As ADODB.Recordset
Dim SQLstmt As String
Dim connbd1 As ADODB.Connection
Dim MaVarDossierProjet As String
Dim MaBase  As String


Label7(35) =  Label100


MaVarDossierProjet = Label7(35).Caption
MaBase = "\bd1.mdb"


DbFile = MaVarDossierProjet & MaBase


'      &#201;tablir la connexion
       Set connbd1 = New ADODB.Connection
       connbd1.CursorLocation = adUseClient
       connbd1.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DbFile & ";" & _
             "Persist Security Info=False"


'      Ouvrir la connexion
      connbd1.Open



'******************************************************************************       SQLstmt "SELECT [troncon], [Extr&#233;mit&#233;1], [Extr&#233;mit&#233;2] FROM [trunk]  Where troncon  " & LabelTroncon.Caption & ",, INSERT INTO trunk " '(Extr&#233;mit&#233;1, Extr&#233;mit&#233;2) VALUES ('combo100.caption', 'combo13.caption')"  
'******************************************************************************
'      Obtenir enregistrements
      Set rstrunk  = New ADODB.Recordset
      rstrunk.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
           adCmdText


Set DataGrid10.DataSource = rstrunk


End Sub

acecel · Answer

Quel est ton erreur? et ou se situe t-elle?

Problème avec "requête SQL " - insert into

1 réponse

Discussions similaires