A voir également:
- Tables liées + sql+vb6
- Vb6 - Télécharger - Divers Utilitaires
- Tables des matières word - Guide
- Tables ascii - Guide
- Logiciel sql - Télécharger - Bases de données
- Tables des annexes word ✓ - Forum Word
1 réponse
bonjour
problème résoulu
mais au niveau de la base de données si un champs est null j'obtient un message d'erreur <<utilisation non autorisée de NULL>>
aidez moi à résoudre ce problème et merçi
voila le nouveau programme:
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim prm As ADODB.Parameter
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\getfonct.mdb"
cn.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
'cmd.CommandText = "select fonctionnaires.doti,fonctionnaires.nomprenomla,fonctionnaires.nomprenomar,fonctionnaires.datenai,fonctionnaires.lieunaiar,fonctionnaires.lieunaila,situationfamiliale.situationfam,nomconjointla,situationfamiliale.nomconjointar,situationfamiliale.doticonjoint,cins.cin,cins.datecin,cins.lieucinla,cins.lieucinar from fonctionnaires,situationfamiliale,cins where text.text=?"
cmd.CommandText = "SELECT Fonctionnaires.*, Fonctionnaires.doti, fonctniveau.codeniveau, fonctniveau.anneescol, fonctniveau.nbreheures, Niveau.niveau FROM Niveau INNER JOIN (Fonctionnaires INNER JOIN fonctniveau ON Fonctionnaires.doti = fonctniveau.doti) ON Niveau.codeniveau = fonctniveau.codeniveau WHERE (((Fonctionnaires.doti)=[?]))"
'Set rs1 = New ADODB.Recordset
'rs1.Open "select fonctionnaires.doti,fonctionnaires.nomprenomla,fonctionnaires.nomprenomar,fonctionnaires.datenai,fonctionnaires.lieunaiar,fonctionnaires.lieunaila,situationfamiliale.situationfam,nomconjointla,situationfamiliale.nomconjointar,situationfamiliale.doticonjoint,cins.cin,cins.datecin,cins.lieucinla,cins.lieucinar from fonctionnaires,situationfamiliale,cins ", cn, adOpenDynamic, adLockOptimistic
cmd.Prepared = True
Set prm = cmd.CreateParameter(, adBSTR)
cmd.Parameters.Append prm
prm.Value = Text1.Text
prm.Size = Len(Text1.Text)
Dim rs1 As New ADODB.Recordset
'rs1.Open
'Set rs1 = New ADODB.Recordset
Set rs1 = cmd.Execute
'On Error Resume Next
Text2.Text = rs1("nomprenomar")
Text3 = rs1("nomprenomla")
Text4 = rs1("datenai")
Text5 = rs1("lieunaiar")
Text6 = rs1("lieunaila")
Text7 = rs1("situationfam")
Text8 = rs1("doticonjoint")
Text9 = rs1("nomconjointla")
Text10 = rs1("nomconjointar")
Text11 = rs1("cin")
Text12 = rs1("datecin")
Text13 = rs1("lieucinla")
Text14 = rs1("lieucinar")
End Sub
problème résoulu
mais au niveau de la base de données si un champs est null j'obtient un message d'erreur <<utilisation non autorisée de NULL>>
aidez moi à résoudre ce problème et merçi
voila le nouveau programme:
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs1 As ADODB.Recordset
Dim prm As ADODB.Parameter
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "C:\Documents and Settings\Administrateur\Bureau\Nouveau dossier\getfonct.mdb"
cn.Open
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
'cmd.CommandText = "select fonctionnaires.doti,fonctionnaires.nomprenomla,fonctionnaires.nomprenomar,fonctionnaires.datenai,fonctionnaires.lieunaiar,fonctionnaires.lieunaila,situationfamiliale.situationfam,nomconjointla,situationfamiliale.nomconjointar,situationfamiliale.doticonjoint,cins.cin,cins.datecin,cins.lieucinla,cins.lieucinar from fonctionnaires,situationfamiliale,cins where text.text=?"
cmd.CommandText = "SELECT Fonctionnaires.*, Fonctionnaires.doti, fonctniveau.codeniveau, fonctniveau.anneescol, fonctniveau.nbreheures, Niveau.niveau FROM Niveau INNER JOIN (Fonctionnaires INNER JOIN fonctniveau ON Fonctionnaires.doti = fonctniveau.doti) ON Niveau.codeniveau = fonctniveau.codeniveau WHERE (((Fonctionnaires.doti)=[?]))"
'Set rs1 = New ADODB.Recordset
'rs1.Open "select fonctionnaires.doti,fonctionnaires.nomprenomla,fonctionnaires.nomprenomar,fonctionnaires.datenai,fonctionnaires.lieunaiar,fonctionnaires.lieunaila,situationfamiliale.situationfam,nomconjointla,situationfamiliale.nomconjointar,situationfamiliale.doticonjoint,cins.cin,cins.datecin,cins.lieucinla,cins.lieucinar from fonctionnaires,situationfamiliale,cins ", cn, adOpenDynamic, adLockOptimistic
cmd.Prepared = True
Set prm = cmd.CreateParameter(, adBSTR)
cmd.Parameters.Append prm
prm.Value = Text1.Text
prm.Size = Len(Text1.Text)
Dim rs1 As New ADODB.Recordset
'rs1.Open
'Set rs1 = New ADODB.Recordset
Set rs1 = cmd.Execute
'On Error Resume Next
Text2.Text = rs1("nomprenomar")
Text3 = rs1("nomprenomla")
Text4 = rs1("datenai")
Text5 = rs1("lieunaiar")
Text6 = rs1("lieunaila")
Text7 = rs1("situationfam")
Text8 = rs1("doticonjoint")
Text9 = rs1("nomconjointla")
Text10 = rs1("nomconjointar")
Text11 = rs1("cin")
Text12 = rs1("datecin")
Text13 = rs1("lieucinla")
Text14 = rs1("lieucinar")
End Sub