[asemshahen5]

كود تعبئة الجدول من جدول في قاعدة البيانات

PHP كود :

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) 


كود إضافة سجل جديد الى جدول في قاعدة البيانات .

PHP كود :

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


كود تعديل في جدول في قاعدة البيانات .

PHP كود :

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


كود حذف سجل من جدول في قاعدة البيانات .

PHP كود :

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


كود بحث عن سجل محدد في قاعدة البيانات .

PHP كود :

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) 


كود فلتر على جدول في قاعدة البيانات .

PHP كود :

       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) 


كود تحميل من الجدول الى التكست بوكس على الفورم .

PHP كود :

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