• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1274
  • Last Modified:

Search button VB 2010

Hello all,

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

Open in new window



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.TextBox'.      
Error      2      Property 'DataBindings' is 'ReadOnly'.      


What could be the problem.

Thanks for your help

0
Wilder1626
Asked:
Wilder1626
  • 7
  • 5
1 Solution
 
Wilder1626Author Commented:
I also tried like this, but still the same error


Me.compagnie.DataBindings = (oRST1("Compagnie").Value)
                compagnie.Text = "Compagnie"

Open in new window

0
 
Shahan AyyubSenior Software Engineer - iOSCommented:
Hi!

for you this problem: (or line 26 of your attached code)
If Nom > "" Then  

Open in new window


change it to this:
 If Not String.IsNullOrEmpty(Nom) Then

Open in new window


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"

Open in new window


0
 
Wilder1626Author Commented:
Ok,

The first part look's good but for the second part, still have a problem.

compagnie_nom.DataSource = oRST1
                compagnie_nom.DataField = "Compagnie"

Open in new window




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

Open in new window

0
2018 Annual Membership Survey

Here at Experts Exchange, we strive to give members the best experience. Help us improve the site by taking this survey today! (Bonus: Be entered to win a great tech prize for participating!)

 
Shahan AyyubSenior Software Engineer - iOSCommented:
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

0
 
Wilder1626Author Commented:
compagnie_nom = a textbox.

When i put     Set compagnie_nom.DataSource = oRST1, the set disapear and it under line compagnie_nom.DataSource
0
 
Wilder1626Author Commented:
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.
0
 
Shahan AyyubSenior Software Engineer - iOSCommented:
Did you get any ERROR message or simply underline ???
Reply when feasible.

0
 
Wilder1626Author Commented:
Hello

The error i have is:


Error      3      'DataField' is not a member of 'System.Windows.Forms.TextBox'.      


Error      2      'DataSource' is not a member of 'System.Windows.Forms.TextBox'.
0
 
Shahan AyyubSenior Software Engineer - iOSCommented:
Hmmm....

Check this link:
http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/95a996ff-db85-4409-86b7-b266f5d20276/

A part from link:
Me.TextBox1.DataBindings.Add("Text", ObjRS, "ACCOUNT#")

Open in new window

0
 
Wilder1626Author Commented:
Hello .

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")

Open in new window


But now, it give me an eror on:
Me.compagnie_nom.DataBindings.Add("Text", oRST1, "Compagnie")

Open in new window


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.Forms
 
0
 
Wilder1626Author Commented:
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
0
 
Shahan AyyubSenior Software Engineer - iOSCommented:
Glad to see that your problem resolved :)
0

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

  • 7
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now