+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود البحث عن الباركود ليكون في فنكشن او موديول (/showthread.php?tid=42355)
تعديل كود البحث عن الباركود ليكون في فنكشن او موديول - momani33 - 03-09-22
السلام عليكم لدي هذا الكود للبحث عن الباركود والتاكد من وجوده
اريد عمل فنكشن او موديول لكود البحث لتجنب تكرار كتابته كثيرا حيث ان المتغير الوحيد هو نص الادخال(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()
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()
RE: تعديل كود البحث عن الباركود ليكون في فنكشن او موديول - سعود - 04-09-22
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
RE: تعديل كود البحث عن الباركود ليكون في فنكشن او موديول - أبو خالد الشكري - 04-09-22
إلى الأستاذ سعود :
ستبقى رهيبًا مدى الزمان
ولن تغلبك متاهة الأكواد
علمك بها كامل بلا نقصان
وأنا على ذلك من الأشهاد
RE: تعديل كود البحث عن الباركود ليكون في فنكشن او موديول - momani33 - 04-09-22
شرح رهيييييييييييييب الله يعطيك العافيه
شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا
RE: تعديل كود البحث عن الباركود ليكون في فنكشن او موديول - رضوان الجماعي - 07-09-22
من لا يشكر الناس لا يشكر الله احترم واعز كل انسان يشكر غيره لو بكلمه ويوفيه حقه .