Wilder1626
asked on
Search button VB 2010
Hello all,
I have a problem with my search button.
I have a problem with : If Nom > "" Then
and also with:
Me.compagnie.DataBindings = oRST1
Me.compagnie.DataField = "Compagnie"
It say:
Error 3 'DataField' is not a member of 'System.Windows.Forms.Text Box'.
Error 2 Property 'DataBindings' is 'ReadOnly'.
What could be the problem.
Thanks for your help
I have a problem with my search button.
Private Sub rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rechercher.Click
Dim sSQL1 As String
Dim oRST1 As ADODB.Recordset
oRST1 = New ADODB.Recordset
Dim oConnect1 As ADODB.Connection
oConnect1 = New ADODB.Connection
oConnect1.Open("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Parametre.txtBaseDelabsolution.Text)
sSQL1 _
= " SELECT [Nom],[Prénom],[Compagnie],[Adresse],[Ville],[Code_Postal],[Téléphone],[Cellulaire],[Courriel],[Courriel2],[Commentaire]" _
& " FROM [Clients]" _
& " WHERE Nom = '" & Nom_famille.Text & "'" _
& " AND Prénom = '" & prenom_prenom.Text & "'"
oRST1.Open(sSQL1, oConnect1)
If oRST1.BOF = False Then
If Nom > "" Then
oRST1.Filter = "Nom = '" & Nom.Text & "'"
Me.compagnie.DataBindings = oRST1
Me.compagnie.DataField = "Compagnie"
End If
End If
End Sub
I have a problem with : If Nom > "" Then
and also with:
Me.compagnie.DataBindings = oRST1
Me.compagnie.DataField = "Compagnie"
It say:
Error 3 'DataField' is not a member of 'System.Windows.Forms.Text
Error 2 Property 'DataBindings' is 'ReadOnly'.
What could be the problem.
Thanks for your help
Hi!
for you this problem: (or line 26 of your attached code)
change it to this:
for your other problems of binding please read this:
http://support.microsoft.com/kb/189852
a part from link for your concern:
for you this problem: (or line 26 of your attached code)
If Nom > "" Then
change it to this:
If Not String.IsNullOrEmpty(Nom) Then
for your other problems of binding please read this:
http://support.microsoft.com/kb/189852
a part from link for your concern:
Set Text1.DataSource = rsProducts
Text1.DataField = "ProductName"
ASKER
Ok,
The first part look's good but for the second part, still have a problem.
Full code with access dbase:
The first part look's good but for the second part, still have a problem.
compagnie_nom.DataSource = oRST1
compagnie_nom.DataField = "Compagnie"
Full code with access dbase:
Dim sSQL1 As String
Dim oRST1 As ADODB.Recordset
oRST1 = New ADODB.Recordset
Dim oConnect1 As ADODB.Connection
oConnect1 = New ADODB.Connection
oConnect1.Open("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & Parametre.txtBaseDelabsolution.Text)
sSQL1 _
= " SELECT [Nom],[Prénom],[Compagnie],[Adresse],[Ville],[Code_Postal],[Téléphone],[Cellulaire],[Courriel],[Courriel2],[Commentaire]" _
& " FROM [Clients]" _
& " WHERE Nom = '" & Nom_famille.Text & "'" _
& " AND Prénom = '" & prenom_prenom.Text & "'"
oRST1.Open(sSQL1, oConnect1)
If oRST1.BOF = False Then
If Not String.IsNullOrEmpty("Nom") Then
oRST1.Filter = "Nom = '" & Nom_famille.Text & "'"
compagnie_nom.DataSource = oRST1
compagnie_nom.DataField = "Compagnie"
service_offert.Enabled = True
service_offert.Select()
End If
End If
Hi!
1) What problem did you get now ???
2) To which object this is "compagnie_nom" representing ???
3) Did you try to change line 29 like this:
Set compagnie_nom.DataSource = oRST1
1) What problem did you get now ???
2) To which object this is "compagnie_nom" representing ???
3) Did you try to change line 29 like this:
Set compagnie_nom.DataSource = oRST1
ASKER
compagnie_nom = a textbox.
When i put Set compagnie_nom.DataSource = oRST1, the set disapear and it under line compagnie_nom.DataSource
When i put Set compagnie_nom.DataSource = oRST1, the set disapear and it under line compagnie_nom.DataSource
ASKER
What i will do is that i will send you the print screen of the issue in about 2:30 hours, when i will get home.
Did you get any ERROR message or simply underline ???
Reply when feasible.
Reply when feasible.
ASKER
Hello
The error i have is:
Error 3 'DataField' is not a member of 'System.Windows.Forms.Text Box'.
Error 2 'DataSource' is not a member of 'System.Windows.Forms.Text Box'.
The error i have is:
Error 3 'DataField' is not a member of 'System.Windows.Forms.Text
Error 2 'DataSource' is not a member of 'System.Windows.Forms.Text
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Hello .
here is the new result after reading the link:
But now, it give me an eror on:
Error mesgae:
System.ArgumentException was unhandled
Message=Impossible d'effectuer une liaison à la propriété ou la colonne Compagnie sur le DataSource. (Imposible to link to column "Compagnie" on the datasource.
Nom du paramètre : dataMember
ParamName=dataMember
Source=System.Windows.Form s
here is the new result after reading the link:
Me.compagnie_nom.Text = oRST1.Fields.Item(0).Value.ToString
Me.compagnie_nom.DataBindings.Add("Text", oRST1, "Compagnie")
But now, it give me an eror on:
Me.compagnie_nom.DataBindings.Add("Text", oRST1, "Compagnie")
Error mesgae:
System.ArgumentException was unhandled
Message=Impossible d'effectuer une liaison à la propriété ou la colonne Compagnie sur le DataSource. (Imposible to link to column "Compagnie" on the datasource.
Nom du paramètre : dataMember
ParamName=dataMember
Source=System.Windows.Form
ASKER
Thanks a lot. I was able with your help to find the way
'Compagnie
Me.compagnie_nom.Text = oRST1.Fields.Item(2).Value .ToString
'adress_1
Me.adress_1.Text = oRST1.Fields.Item(3).Value .ToString
'city_1
Me.city_1.Text = oRST1.Fields.Item(4).Value .ToString
'zip_code
Me.zip_code.Text = oRST1.Fields.Item(5).Value .ToString
'phone_1
Me.phone_1.Text = oRST1.Fields.Item(6).Value .ToString
'cell_1
Me.cell_1.Text = oRST1.Fields.Item(7).Value .ToString
'email_1
Me.email_1.Text = oRST1.Fields.Item(8).Value .ToString
'Compagnie
Me.compagnie_nom.Text = oRST1.Fields.Item(2).Value
'adress_1
Me.adress_1.Text = oRST1.Fields.Item(3).Value
'city_1
Me.city_1.Text = oRST1.Fields.Item(4).Value
'zip_code
Me.zip_code.Text = oRST1.Fields.Item(5).Value
'phone_1
Me.phone_1.Text = oRST1.Fields.Item(6).Value
'cell_1
Me.cell_1.Text = oRST1.Fields.Item(7).Value
'email_1
Me.email_1.Text = oRST1.Fields.Item(8).Value
Glad to see that your problem resolved :)
ASKER
Open in new window