23-02-19, 03:25 AM
مرحبا يا شباب
اريد جلب اسم المنتج عند ادخال رقم الباركود لكن عندما يكون الرقم موجود لا يفعل شي ولا يجلب الاسم و عندما لا يوجد منتج يتم تنفيذ جزء اظهار رسالة التنبيه
الكود .
Pro_Name : اسم المنتج
pro_Code : كود المنتج
مع العلم ترتيب الاعمدة بالجدول :
Pro_ID
Pro_Code
Pro_Name
txtdes : هو تكتست بوكس لاظهار اسم المنتج
اريد جلب اسم المنتج عند ادخال رقم الباركود لكن عندما يكون الرقم موجود لا يفعل شي ولا يجلب الاسم و عندما لا يوجد منتج يتم تنفيذ جزء اظهار رسالة التنبيه
الكود .
كود :
If e.KeyCode = Keys.Enter Then
Try
cmd = New OleDb.OleDbCommand("select Pro_Name from TBL_Products where Pro_Code = " & txtprocode.Text, con)
con.Open()
Dim drr As OleDb.OleDbDataReader = cmd.ExecuteReader
If drr.HasRows Then
txtdes.Text = drr(0)
Else
MsgBox("This Product Not Found !", MsgBoxStyle.Exclamation, "Sorry !!")
txtprocode.Clear()
txtdes.Clear()
txtqu.Clear()
txtmoms.Clear()
txtPris.Clear()
txtrbt.Clear()
txttotalt.Clear()
txtprocode.Focus()
End If
drr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End If
Pro_Name : اسم المنتج
pro_Code : كود المنتج
مع العلم ترتيب الاعمدة بالجدول :
Pro_ID
Pro_Code
Pro_Name
txtdes : هو تكتست بوكس لاظهار اسم المنتج