dim StrSQL as string = "Select * From QtnTbl "
Dim cn As New SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String ="QtnTbl"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim ds As New DataSet
da.Fill(ds,StrTableName)
Dim StrSQL As String = "INSERT INTO QtnTbl (Barcode,QtnName,Qtn ) VALUES (@Barcode,@QtnName,@Qtn)"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@Barcode", Txt_Barcode.Text)
Command.Parameters.AddWithValue("@QtnName", Txt_QtnName.Text)
Command.Parameters.AddWithValue("@Qtn", Txt_Qtn.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
Dim StrSQL As String = "UPDATE QtnTbl SET QtnName=@QtnName, Qtn=@Qtn , @Barcode=@Barcode where ID=@ID"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@ID", Txt_ID.Text)
Command.Parameters.AddWithValue("@Barcode", Txt_Barcode.Text)
Command.Parameters.AddWithValue("@QtnName", Txt_QtnName.Text)
Command.Parameters.AddWithValue("@Qtn", Txt_Qtn.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
Dim StrSQL As String = "Delete From QtnTbl where ID=@ID"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@ID", Txt_ID.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
dim StrSQL as string = "Select * From QtnTbl Where Barcode = '" & TxtSearch.Text & "'"
Dim cn As New SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String ="QtnTbl"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim ds As New DataSet
da.Fill(ds,StrTableName)
Dim StrSQL As String = "Select * From QtnTbl Where QtnName Like @QtnName"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
da.SelectCommand.Parameters.AddWithValue("@QtnName", "%" & Txt_Filter.Text & "%")
Dim ds As New DataSet
da.Fill(ds, StrTableName)
Txt_ID.DataBindings.Clear()
Txt_Barcode.DataBindings.Clear()
Cmb_QtnName.DataBindings.Clear()
Txt_Qtn.DataBindings.Clear()
Txt_ID.DataBindings.Add("Text", ds.Tables(StrTableName), "ID")
Txt_Barcode.DataBindings.Add("Text", ds.Tables(StrTableName), "Barcode")
Cmb_QtnName.DataBindings.Add("Text", ds.Tables(StrTableName), "QtnName")
Txt_Qtn.DataBindings.Add("Text", ds.Tables(StrTableName), "Qtn")