Dummies
asked on
Searching SQL index with windows form (VB.net)
I'm currenty design one interface with CustomerID searching in SQL database, and i've already done the connection, which works on adding rows and deleting rows. i want the codes which can search the customerID successfully and link to another windows form. I need this question solve urgently, Please reply as soon as possible.
ASKER
I'm ok with the SQL statement, i just want the VB.net source code, uhhmm.. i just cant figure out how the code is, just like a basic searching query.... like a text box... and a button , when i fill in the customerID in the text box, after i click on button , the result will return.
http://www.codeproject.com/vb/net/grid101.asp is a good tutorial on the datagrid control.
ASKER
Here's what i get from MSDN library .. but it just come with ADD,EDIT,DELETE, and with FIXED only DATA, i want a searching... with user key-in
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim sConnectionString As String
' Modify the following code to correctly connect to your SQL Server.
sConnectionString = "Password=StrongPassword;U ser ID=UserName;" & _
"Initial Catalog=pubs;" & _
"Data Source=(local)"
Dim objConn As New SqlConnection(sConnectionS tring)
objConn.Open()
' Create an instance of a DataAdapter.
Dim daAuthors As _
New SqlDataAdapter("Select * From Authors", objConn)
' Create an instance of a DataSet, and retrieve data from the Authors table.
Dim dsPubs As New DataSet("Pubs")
daAuthors.FillSchema(dsPub s, SchemaType.Source, "Authors")
daAuthors.Fill(dsPubs, "Authors")
'*****************
'BEGIN ADD CODE
' Create a new instance of a DataTable
Dim tblAuthors As DataTable
tblAuthors = dsPubs.Tables("Authors")
Dim drCurrent As DataRow
' Obtain a new DataRow object from the DataTable.
drCurrent = tblAuthors.NewRow()
' Set the DataRow field values as necessary.
drCurrent("au_id") = "993-21-3427"
drCurrent("au_fname") = "George"
drCurrent("au_lname") = "Johnson"
drCurrent("phone") = "800 226-0752"
drCurrent("address") = "1956 Arlington Pl."
drCurrent("city") = "Winnipeg"
drCurrent("state") = "MB"
drCurrent("contract") = 1
'Pass that new object into the Add method of the DataTable.Rows collection.
tblAuthors.Rows.Add(drCurr ent)
MsgBox("Add was successful.")
'END ADD CODE
'*****************
'BEGIN EDIT CODE
drCurrent = tblAuthors.Rows.Find("213- 46-8915")
drCurrent.BeginEdit()
drCurrent("phone") = "342" & drCurrent("phone").ToStrin g.Substrin g(3)
drCurrent.EndEdit()
MsgBox("Record edited successfully")
'END EDIT CODE
'*****************
'BEGIN SEND CHANGES TO SQL SERVER
Dim objCommandBuilder As New SqlCommandBuilder(daAuthor s)
daAuthors.Update(dsPubs, "Authors"),
MsgBox("SQL Server updated successfully" & chr(13) & "Check Server explorer to see changes")
' END SEND CHANGES TO SQL SERVER
'*****************
'BEGIN DELETE CODE
drCurrent = tblAuthors.Rows.Find("993- 21-3427")
drCurrent.Delete()
MsgBox("Record deleted successfully")
'END DELETE CODE
'*****************
' CLEAN UP SQL SERVER
daAuthors.Update(dsPubs, "Authors")
MsgBox("SQL Server updated successfully" & Chr(13) & Chr(13) & "Check Server Explorer to see changes")
End Sub
End Module
Imports System
Imports System.Data
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim sConnectionString As String
' Modify the following code to correctly connect to your SQL Server.
sConnectionString = "Password=StrongPassword;U
"Initial Catalog=pubs;" & _
"Data Source=(local)"
Dim objConn As New SqlConnection(sConnectionS
objConn.Open()
' Create an instance of a DataAdapter.
Dim daAuthors As _
New SqlDataAdapter("Select * From Authors", objConn)
' Create an instance of a DataSet, and retrieve data from the Authors table.
Dim dsPubs As New DataSet("Pubs")
daAuthors.FillSchema(dsPub
daAuthors.Fill(dsPubs, "Authors")
'*****************
'BEGIN ADD CODE
' Create a new instance of a DataTable
Dim tblAuthors As DataTable
tblAuthors = dsPubs.Tables("Authors")
Dim drCurrent As DataRow
' Obtain a new DataRow object from the DataTable.
drCurrent = tblAuthors.NewRow()
' Set the DataRow field values as necessary.
drCurrent("au_id") = "993-21-3427"
drCurrent("au_fname") = "George"
drCurrent("au_lname") = "Johnson"
drCurrent("phone") = "800 226-0752"
drCurrent("address") = "1956 Arlington Pl."
drCurrent("city") = "Winnipeg"
drCurrent("state") = "MB"
drCurrent("contract") = 1
'Pass that new object into the Add method of the DataTable.Rows collection.
tblAuthors.Rows.Add(drCurr
MsgBox("Add was successful.")
'END ADD CODE
'*****************
'BEGIN EDIT CODE
drCurrent = tblAuthors.Rows.Find("213-
drCurrent.BeginEdit()
drCurrent("phone") = "342" & drCurrent("phone").ToStrin
drCurrent.EndEdit()
MsgBox("Record edited successfully")
'END EDIT CODE
'*****************
'BEGIN SEND CHANGES TO SQL SERVER
Dim objCommandBuilder As New SqlCommandBuilder(daAuthor
daAuthors.Update(dsPubs, "Authors"),
MsgBox("SQL Server updated successfully" & chr(13) & "Check Server explorer to see changes")
' END SEND CHANGES TO SQL SERVER
'*****************
'BEGIN DELETE CODE
drCurrent = tblAuthors.Rows.Find("993-
drCurrent.Delete()
MsgBox("Record deleted successfully")
'END DELETE CODE
'*****************
' CLEAN UP SQL SERVER
daAuthors.Update(dsPubs, "Authors")
MsgBox("SQL Server updated successfully" & Chr(13) & Chr(13) & "Check Server Explorer to see changes")
End Sub
End Module
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Well.. i've already solve my question by more simple way .. hehe.. but thx anyway for helping me ... keep it up....
Basically you are just going to issue sql statements to return a set of customers
SELECT * FROM CUSTOMERS WHERE NAME LIKE 'Jo%'
would return customers name John Joe etc
you would then bind the result set to a grid etc and allow the user to select the customer they want, then you would instantiate a form for that customer ...