[momani33]

السلام عليكم لدي هذا الكود للبحث عن الباركود والتاكد من وجوده
اريد عمل فنكشن او موديول لكود البحث لتجنب تكرار كتابته كثيرا حيث ان المتغير الوحيد هو نص الادخال(unit1_barcode.Text) للباركود وشكرا

If sqlconn.State = 1 Then sqlconn.Close()
                sqlconn.Open()

                Dim sqlReader As String = "select * from item where  unit_barcode=N'" & (unit1_barcode.Text) & "'"
                Dim cmd As New SqlCommand(sqlReader, sqlconn)
                Dim dr As SqlDataReader
                dr = cmd.ExecuteReader
                dr.Read()
                If dr.HasRows Then
                    dr.Close()
                    sqlconn.Close()
                    unit1_barcode.Text = ""
                    MsgBox("عذرا الباركود موجود مسبقا الرجاء الادخال بشكل صحيح")
                    Exit Sub
                End If
                dr.Close()
                sqlconn.Close()

[سعود]

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 


[أبو خالد الشكري]

إلى الأستاذ سعود :

ستبقى رهيبًا مدى الزمان

ولن تغلبك متاهة الأكواد

علمك بها كامل بلا نقصان

وأنا على ذلك من الأشهاد

[momani33]

شرح رهيييييييييييييب الله يعطيك العافيه
شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

[رضوان الجماعي]

من لا يشكر الناس لا يشكر الله احترم واعز كل انسان يشكر غيره لو بكلمه ويوفيه حقه .