requetes SQL dans VB

Question

bonjour,
J'utlise AADO pour me connecter a une BD acces et je veux juste la remplir avec des valeurs que mon programme produit.

Mon probleme se pose au niveau de la requete sql apparement il y aurai erreur de syntaxe si quelqu'un peut m'aider

voila le code(c juste du test):

'OS version
Private Type OSVERSIONINFO
 dwOSVersionInfoSize As Long
 dwMajorVersion As Long
 dwMinorVersion As Long
 dwBuildNumber As Long
 dwPlatformId As Long
 szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type

'os version
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

'computer name
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'user name
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim cnnADO As New ADODB.Connection  ' Pour la connection à la base de données

Dim cmdADO As New ADODB.Command     ' Pour la commande à la base de données

Dim rsADO As New ADODB.Recordset

Private Sub Form_Load()

'OS version
Dim OS As OSVERSIONINFO

    OS.dwOSVersionInfoSize = Len(OS)  ' set the size of the structure
    retval = GetVersionEx(OS)  ' read Windows's version information
    If OS.dwMajorVersion 4 And OS.dwMinorVersion 0 Then
        lblOsVersion = "Windows NT version " & OS.dwMajorVersion & "." & OS.dwMinorVersion
    ElseIf OS.dwMajorVersion = 4 And OS.dwMinorVersion > 0 Then
        lblOsVersion = " Windows Millenium version " & OS.dwMajorVersion & "." & OS.dwMinorVersion    ElseIf OS.dwMajorVersion 5 And OS.dwMinorVersion 0 Then
        lblOsVersion = "Windows 2000 version " & OS.dwMajorVersion & "." & OS.dwMinorVersion    ElseIf OS.dwMajorVersion 5 And OS.dwMinorVersion 1 Then
        lblOsVersion = "Windows XP version " & OS.dwMajorVersion & "." & OS.dwMinorVersion
    End If

    
'computer name

Dim strComputerName As String

    strComputerName = String(100, Chr$(0))
    GetComputerName strComputerName, 100
    lblComputerName = "Computer Name: " & strComputerName

'username

Dim strUserName As String

    strUserName = String(100, Chr$(0))
    GetUserName strUserName, 100
    lblUserName = "User Name: " & strUserName

'IP & Hostname
Dim IP As String
Dim HOST As String

    IP = Winsock1.LocalIP
    HOST = Winsock1.LocalHostName
    lblIP = "IP Address: " & IP
    lblHost = "Hostname: " & HOST

'Connection BD

cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"

' Chemin de la Base de Données - ici le répertoire de l'application

cnnADO.ConnectionString = "test.mdb"

' Ouverture de la Base de Données

cnnADO.Open

cnnADO.Execute "INSERT INTO Table_Computer (Computer_Name) VALUES (" & strComputerName & ");"

End Sub

 ;)  merci

cs_pimousse75 · Answer

Mets des ' et essaie

cnnADO.Execute "INSERT INTO Table_Computer (Computer_Name) VALUES ('" & strComputerName & "');"

Requetes SQL dans VB

1 réponse

Discussions similaires