منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعديل كود البحث عن الباركود ليكون في فنكشن او موديول

السلام عليكم لدي هذا الكود للبحث عن الباركود والتاكد من وجوده
اريد عمل فنكشن او موديول لكود البحث لتجنب تكرار كتابته كثيرا حيث ان المتغير الوحيد هو نص الادخال(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

سعود

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

momani33

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