Solved

Search button VB 2010

Posted on 2011-02-20
13
1,263 Views
Last Modified: 2012-05-11
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
Comment
Question by:Wilder1626
  • 7
  • 5
13 Comments
 
LVL 11

Author Comment

by:Wilder1626
ID: 34938834
I also tried like this, but still the same error


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

Open in new window

0
 
LVL 19

Expert Comment

by:Shahan Ayyub
ID: 34946700
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
 
LVL 11

Author Comment

by:Wilder1626
ID: 34947880
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
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 19

Expert Comment

by:Shahan Ayyub
ID: 34954866
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
 
LVL 11

Author Comment

by:Wilder1626
ID: 34955414
compagnie_nom = a textbox.

When i put     Set compagnie_nom.DataSource = oRST1, the set disapear and it under line compagnie_nom.DataSource
0
 
LVL 11

Author Comment

by:Wilder1626
ID: 34955448
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
 
LVL 19

Expert Comment

by:Shahan Ayyub
ID: 34955472
Did you get any ERROR message or simply underline ???
Reply when feasible.

0
 
LVL 11

Author Comment

by:Wilder1626
ID: 34956662
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
 
LVL 19

Accepted Solution

by:
Shahan Ayyub earned 500 total points
ID: 34963103
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
 
LVL 11

Author Comment

by:Wilder1626
ID: 34966156
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
 
LVL 11

Author Closing Comment

by:Wilder1626
ID: 34966282
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
 
LVL 19

Expert Comment

by:Shahan Ayyub
ID: 34969547
Glad to see that your problem resolved :)
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
1.0 - Introduction Converting Visual Basic 6.0 (VB6) to Visual Basic 2008+ (VB.NET). If ever there was a subject full of murkiness and bad decisions, it is this one!   The first problem seems to be that people considering this task of converting…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question