erreur! UPDATE !!! Nouvel enregistrement dans une table !

Question

Salut, 
je d&#233;bute dans la prog alors soyez indulgent. Merci.
Je d&#233;veloppe une appli en vb 6 et j'ai une base mysql. 
Je dois ici inserer un nouvel enregistrement dans ma table "location".
Le probl&#232;me vient apparemment de Update qu'il me surligne. 
Et j'ai en retour l'erreur: " Longueur de chaine ou de m&#233;moire tampon non valide".

Je ne comprend pas cette erreur. Merci pour votre aide. 
(Il me reste 2 semaines avant soutenance de stage!!!!)

Voici le bout de code foireux:

Private Sub Cmd_Valider_Click()


Dim str As String
Set cn = New ADODB.Connection
str = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & "localhost" & ";DATABASE=" & "MaBase" & ";" & "UID=" & "root" & ";PWD=" & ";OPTION="
cn.Open str


Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "location", cn, , , adCmdTable

rs.AddNew
rs!Id_en = id_E
rs!Id_cn = id_C
rs!Date_s = ds
rs!Date_r = dr
rs!Acc_l = acc
rs!Adr = adr
rs.Update
    
MsgBox "Nouvelle location correctement enregistr&#233;e", vbOKOnly, "Message"
Form_NouvelleLoc.Hide

KC62 · Answer

Salut, 

je suis pas sur de moi mais tu peux toujours essay&#233; sa mange pas de pain ! 
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "location", cn, , , adCmdTable
Sur ce code  essaye de remplace  adLockOptimistic par quelque chose du genre adOpenDynaset . 
Tu pourras voir en appuaynt sur [Control] + [Espaces] toutes les possibilit&#233;s. L'id&#233;e c'est douvrir le recordset de mani&#232;re a pouvoir enregistr&#233; dessus. 

voila bonne chance a toi ! 

KC62
On a pas toutes les solutions de tous les probleme mais chaque probleme &#224; ses solutions ...

cs_frop01 · Answer

L'erreur vient les valeurs affect&#233;es au champs;



v&#233;rifies leur types ainsi que leur longeur 



ex 

si Dats_s est de type date dans la base

alors il faut 

rs!Dates=CDate(ds)



@+

ktypao · Answer

Merci! 
Le probl&#232;me vient apparemment de l&#224;, j'ai mis CDate() pour les dates, en revanche il reste encore un probl&#232;me pour un autre champ qui est en VARCHAR dans ma base et que j'ai mis en STRING dans l'appli. En fait je la r&#233;cup&#232;re dans un textBox ( adr text_adr.text ) puis je l'affecte au champ de la base correspondant ( rs!adresse adr).

Pourquoi &#231;a ne marche pas?
Il me renvoie: "Une op&#233;ration OLE-DB a g&#233;n&#233;r&#233; des erreurs. V&#233;rifiez chaque valeur d'&#233;tat OLE-DB disponibles. Aucun travail n'a &#233;t&#233; effectu&#233;. "

cs_dan80 · Answer

ou essaye ca :

Private Sub Cmd_Valider_Click() 
Dim str As String
Set cn = New ADODB.Connection
str = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=" & "localhost" & ";DATABASE=" & "MaBase" & ";" & "UID=" & "root" & ";PWD=" & ";OPTION="
cn.Open str



dim sqlstring as string
sqlstring="Insert into Location(Id-En, Id_cn, Date_s, Date_r, Acc_l, Adr) values ( ' " & id_E & " ',....)
cn.Execute sqlstring

affectation des variables, syntaxe:
' " & (string) & " '
" & (integer) & "
# " & (date) & " #

fais moi signe si tu r&#233;ussi!

ktypao · Answer

Avec cette m&#233;thode c'est pour les dates que &#231;a marche pas, c'est un comble, non?

Donc ici, j'ai une erreur de syntaxe pour les dates.
Si je met  # " & ds & " #  il me met une erreur de syntaxe.
Si je met  ' " & ds & " '   ou  " & ds & "   l'enregistrement se fait bien mais avec les valeurs par d&#233;faut des dates, 00-00-0000.

Je ne sais plus koi faire, j'ai tout essay&#233;!

 Encore un p'tit conseil pour une pauv' p'tite programmeuse en gal&#232;re ?

cs_dan80 · Answer

t sur que tes champs sont au format date?

tu pe toujours essay&#233; ca:

tu fais soit:

1- un cdate('ta date') pour convertir en date

2- ou tu fais format('ta date',"MM/dd/yyyy")

fais moi signe

je suis toujours a aid&#233; un programmeur en d&#233;tresse sutout si c'est une progammeuse

cs_frop01 · Answer

envoi la structure sql (Create TABLe ....)

pour voir les types des champs !!

Erreur! UPDATE !!! Nouvel enregistrement dans une table !

7 réponses

Discussions similaires