Pb INSERT INTO

**laetus** · 04/10/2004, 16h20

bonjour j'ai un souci voila mon code

Code :

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

1
2
txt = SelectFile()
            DoCmd.RunSQL "INSERT INTO tbl_modele([nom du modele],[Images]) values (txt_enr2.Value:txt)"

SelectFile() me retourne un string
mais il y a une erreur car après access me demande de renseigner le paramètre txt. il ne prens pas txt comme le string qui est definit.

merci d'avance

**shwin** · 04/10/2004, 16h23

bonjour, essaye ceci

Code :

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

1
2
3
 
txt = SelectFile() 
            DoCmd.RunSQL "INSERT INTO tbl_modele([nom du modele],[Images]) values (" & txt_enr2.Value & "," & txt & ")"

**laetus** · 04/10/2004, 16h28

maintenant il me met ça comme erreur

Erreur de syntaxe (Opérateur absent) dans l'expression 'C:\a.bmp'.

C:\a.bmp c'est le contenu de ma variable txt

**shwin** · 04/10/2004, 16h36

comme ca alors

Code :

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

1
2
3
 
txt = SelectFile() 
            DoCmd.RunSQL "INSERT INTO tbl_modele([nom du modele],[Images]) values (" & txt_enr2.Value & ",'" & txt & "')"

si txt_enr2.value est un string, il faut mettre la valeur entre ' ' aussi

**laetus** · 04/10/2004, 16h39

maintenant il me met ça comme erreur

Erreur de syntaxe dans la chaine dans l'expression "C:\a.bmp'.

maintenant il a changer le premier caractère c'est des GUILLEMETS

**shwin** · 04/10/2004, 16h48

chez moi je viens de tester et ca marche #1

Code :

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

1
2
3
4
 
Dim txt As String
txt = "blabla"
DoCmd.RunSQL "INSERT INTO table1([test],[test2]) values (" & nbEtiquette1.Value & ",'" & txt & "')"

a toi de voir maintenant si tu n'as pas fait une erreur de syntaxe et assure toi que txt_enr2.Value est de type numérique sinon ca prend les ' '

**laetus** · 04/10/2004, 16h55

désolé mais il y a toujour le même souci

**shwin** · 04/10/2004, 17h44

montre ce que tu as mit comme sql et dit moi les valeur que tu veux ajouter

ex:
sql = ton_code_sql
txt_enr2.value = lavaleur
txt = lavaleur

**laetus** · 04/10/2004, 17h52

je pense savoir d'où ça viens mais je ne sais pas le resoudre voilà je recupère le chemin de fichier avec ce code pour appeler un opendialogue

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Option Compare Database
 
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
                        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Private Type OPENFILENAME
      lStructSize As Long
      hWndOwner As Long
      hInstance As Long
      lpstrFilter As String
      lpstrCustomFilter As String
      nMaxCustFilter As Long
      nFilterIndex As Long
      lpstrFile As String
      nMaxFile As Long
      lpstrFileTitle As String
      nMaxFileTitle As Long
      lpstrInitialDir As String
      lpstrTitle As String
      flags As Long
      nFileOffset As Integer
      nFileExtension As Integer
      lpstrDefExt As String
      lCustData As Long
      lpfnHook As Long
      lpTemplateName As String
End Type
 
Function SelectFile() As String
 
    Dim OpenFile            As OPENFILENAME
    Dim lReturn             As Long
    Dim sFilter             As String
    Dim fichier            As String
 
    OpenFile.lStructSize = Len(OpenFile)
 
    'OpenFile.hwndOwner = Form1.hwnd
    OpenFile.hWndOwner = Screen.ActiveForm.Hwnd
    'OpenFile.hInstance = App.hInstance
    OpenFile.lpstrFile = "*.bmp"
    sFilter = "Fichiers Images (*.bmp)" & Chr(0) & "*.bmp" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "C:\"
    OpenFile.lpstrTitle = "Insérer une image"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
 
    fichier = (Trim(OpenFile.lpstrFile))
    SelectFile = fichier
 
End Function

et à mon avis le string que je récupère dans txt n'est pas fini c'est à dire que pour "C:\a.bmp" on à "C:\a.bmp||||||||||||||||||||||||||||||||....." car il caste le string à 257 caractère mais c'est une fonction que j'ai trouver sur le forum je ne sais pas faire autrement

txt=SelectFile()

ça c'est mon code SQL

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO tbl_modele([nom du modele],[Images]) values(txt_enr2.Value,'" & txt & "')"

txt_enr2.Value c'est du texte

merci d'avance

**shwin** · 04/10/2004, 18h00

utilice cela

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ 
                        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long 
 
Private Type OPENFILENAME 
      lStructSize As Long 
      hWndOwner As Long 
      hInstance As Long 
      lpstrFilter As String 
      lpstrCustomFilter As String 
      nMaxCustFilter As Long 
      nFilterIndex As Long 
      lpstrFile As String 
      nMaxFile As Long 
      lpstrFileTitle As String 
      nMaxFileTitle As Long 
      lpstrInitialDir As String 
      lpstrTitle As String 
      flags As Long 
      nFileOffset As Integer 
      nFileExtension As Integer 
      lpstrDefExt As String 
      lCustData As Long 
      lpfnHook As Long 
      lpTemplateName As String 
End Type 
 
Function SelectFile() As String 
 
    Dim OpenFile            As OPENFILENAME 
    Dim lReturn             As Long 
    Dim sFilter             As String 
    Dim fichier            As String 
 
    OpenFile.lStructSize = Len(OpenFile) 
 
    'OpenFile.hwndOwner = Form1.hwnd 
    OpenFile.hWndOwner = Screen.ActiveForm.Hwnd 
    'OpenFile.hInstance = App.hInstance 
    OpenFile.lpstrFile = "*.bmp" 
    sFilter = "Fichiers Images (*.bmp)" & Chr(0) & "*.bmp" & Chr(0) 
    OpenFile.lpstrFilter = sFilter 
    OpenFile.nFilterIndex = 1 
    OpenFile.lpstrFile = Space$(254) 
    OpenFile.nMaxFile = 255
    OpenFile.lpstrFileTitle = space$(254)
    OpenFile.nMaxFileTitle = 255 
    OpenFile.lpstrInitialDir = "C:\" 
    OpenFile.lpstrTitle = "Insérer une image" 
    OpenFile.flags = 0 
    lReturn = GetOpenFileName(OpenFile) 
 
    fichier = (Trim$(OpenFile.lpstrFile)) 
    SelectFile = fichier 
 
End Function

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO tbl_modele([nom du modele],[Images]) values('" & txt_enr2.Value & "','" & txt & "')"

**laetus** · 04/10/2004, 18h09

c'est ça qu'il y a dans la valeur de txt "C:\PLUME.BMP" et si dans le débogage je vire le ça passe dans le cas contraire ça ne passe pas

mais avant il y en avais jusque 255

**shwin** · 04/10/2004, 18h15

on va faire un test

met ceci
OpenFile.lpstrFile = string$(254, vbnullchar) à la place de OpenFile.lpstrFile = Space$(254)

et

OpenFile.lpstrFileTitle = string$(254,vbnullchar) à la place de OpenFile.lpstrFileTitle = space$(254)

**laetus** · 04/10/2004, 18h19

avec ce code cela devient comme ça :

OpenFile.lpstrFile = string$(254, vbnullchar)

"C:\b.bmp"

**shwin** · 04/10/2004, 18h26

ok laise le code comme ca et utilise ceci

Code :

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

1
2
 
fichier = Mid$(openfile.lpstrFile, 1, InStr(1, openfile.lpstrFile, vbNullChar) - 1)

**laetus** · 04/10/2004, 18h29

c'est cool merci ça marche t'assure

Pb INSERT INTO

Requêtes et SQL.

Discussions similaires

Partager

Partager