[سعود]

PHP كود :

Module Module1
    Public Function FindingBarcode(dbtype As String, constr As String, tbname As String, colname As String, brcode As String) As Integer
        Dim sqlstring As String = "select count(*) from " & tbname & " where " & colname & "='" & brcode & "'"
        Select Case dbtype
            Case "sql"
                Using con As New Data.SqlClient.SqlConnection(constr)
                    Using cmd As New Data.SqlClient.SqlCommand(sqlstring, con)
                        If con.State = ConnectionState.Closed Then con.Open()
                        Return cmd.ExecuteScalar
                        If con.State = ConnectionState.Open Then con.Close()
                    End Using
                End Using
            Case "oledb"
                Using con As New Data.OleDb.OleDbConnection(constr)
                    Using cmd As New Data.OleDb.OleDbCommand(sqlstring, con)
                        If con.State = ConnectionState.Closed Then con.Open()
                        Return cmd.ExecuteScalar
                        If con.State = ConnectionState.Open Then con.Close()
                    End Using
                End Using
            Case Else
                Return Nothing
        End Select
    End Function
End Module 


الاعلى هذا الموديول
التالي اكواد الفورم و ازراره

PHP كود :

Public Class Form1
    Private Function check(dbtype As String, constr As String, tbname As String, colname As String, brcode As String) As String
        Return IIf(FindingBarcode(dbtype, constr, tbname, colname, brcode) > 0, "موجود", "غير موجود")
    End Function
    Private Sub btnoledb_Click(sender As System.Object, e As System.EventArgs) Handles btnoledb.Click
        If unit1_barcode.Text.Trim = "" Then Exit Sub
        lbloledb.Text = check("oledb", "provider=microsoft.ace.oledb.12.0;data source=db.accdb", "tb", "bc", Me.unit1_barcode.Text)
    End Sub
    Private Sub btnsqlserver_Click(sender As System.Object, e As System.EventArgs) Handles btnsqlserver.Click
        If unit1_barcode.Text.Trim = "" Then Exit Sub
        lblsql.Text = check("sql", "Server=.\sqlexpress;Database=mydb;Trusted_Connection=True;MultipleActiveResultSets=True", "tbs", "tname", Me.unit1_barcode.Text)
    End Sub
End Class