Probleme de codage en VISUAL BASIC 6

Question

bonjour.

je coin&#231;e sur une verification de texte.

vb me renvoi cette erreur : 

Erreur d'ex&#233;cution '3001':

Les arguments sont de types incorrect, en dehors des limites autoris&#233;es ou en 
comflit les uns avec les autres.

Voici mon code:

Public Sub TxtNom_Change()
'verification du champ TxtNom si existant
Rs_Nom.CursorType = adOpenDynamic
Rs_Nom.Open "select * from TableFusion", cn
'Where NomUtilisateur='" & VISITEUR & "'", cn
 If Rs_Nom.EOF = True Then
   MsgBox "Nom incorrect", vbExclamation, "Attention !!"
 End If
End Sub

cs_ITALIA · Answer

on se trouve la connexion &#224; la BASE  ?
Donnes le code

It@li@

cs_ITALIA · Answer

sur quelle ligne &#231;a plante ?

It@li@

cs_kimou75 · Answer

ca plante sur la requette. 

 le code de connexion se trouve sur le formulaire de depart, le menu.
code du formulaire menu.

Private Sub Form_Load()


End Sub


Private Sub HtPar_Click()
HtPar.Show
End Sub


Private Sub MiJour_Click()
MiJour.Show
End Sub


Private Sub Nom_Click()
FormNom.Show
End Sub


Private Sub NumPoste_Click()
FormNumPoste.Show
End Sub


Private Sub Periode_Click()
FormPeriod.Show
End Sub


Private Sub Quiter_Click()
Dim rep
rep = MsgBox("Voulez-vous vraiment quitter ?", vbYesNo, "Information")
Select Case rep
    Case vbNo
        FormMenu.Show
    Case vbYes
    End
    End Select
End Sub


Private Sub UC_Click()
FormUc.Show
End Sub
Private Sub initialize()
'Appel de la base de donn&#233;es
Set cn = New ADODB.Connection


'chemin de la base de donn&#233;es pour acess
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\guesmia.ALISSIER\Bureau\Mes documents	axation.mdb;Persist Security Info=False"


'chemin sur cl&#233; usb Kimou
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Taxation	axation.mdb;Persist Security Info=False"


cn.Open
End Sub

cs_ITALIA · Answer

En rempla&#231;ant :

Rs_Nom.Open "select * from TableFusion", cn
'Where NomUtilisateur='" & VISITEUR & "'", cn

Par :
Rs_Nom.Open "select * from TableFusion Where NomUtilisateur=' " & VISITEUR & " ' ", cn

It@li@

cs_kimou75 · Answer

c'est ce qu'il y avait &#224; l'origine. j'ai mis la condition de la requ&#234;te en commentaire, juste pour voir si c'&#233;t&#233; pas l&#224; que ca coin&#231;&#233;, mais ca ne change rien quelque soit la requ&#234;te

cs_ITALIA · Answer

public cnx As new adodb.connection


public rs as new adodb.recordset


Private Sub Form_Load()


End Sub


Private Sub HtPar_Click()
HtPar.Show
End Sub


Private Sub MiJour_Click()
MiJour.Show
End Sub


Private Sub Nom_Click()
FormNom.Show
End Sub


Private Sub NumPoste_Click()
FormNumPoste.Show
End Sub


Private Sub Periode_Click()
FormPeriod.Show
End Sub


Private Sub Quiter_Click()
Dim rep
rep = MsgBox("Voulez-vous vraiment quitter ?", vbYesNo, "Information")
Select Case rep
Case vbNo
FormMenu.Show
Case vbYes
End
End Select
End Sub


Private Sub UC_Click()
FormUc.Show
End Sub



Private Sub initialize()



'Appel de la base de donn&#233;es

cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\guesmia.ALISSIER\Bureau\Mes documents	axation.mdb;Persist Security Info=False"


'chemin sur cl&#233; usb Kimou
'cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Taxation	axation.mdb;Persist Security Info=False"


cnx.Open


End Sub


Public Sub TxtNom_Change()

Rs.CursorType = adOpenDynamic
Rs.source= "select * from TableFusion Where NomUtilisateur='" & VISITEUR & "'"


Rs.open
If Rs.EOF = True Then
   MsgBox "Nom incorrect", vbExclamation, "Attention !!"
End If


Rs.close


End Sub

It@li@

Probleme de codage en VISUAL BASIC 6

6 réponses

Discussions similaires