كل ما عليك استخدام هذا الكود بعد ما تم التعديل عليه
كود :
Try
If IsNumeric(TextBox1.Text) = False Then
ds.Clear()
Dim DataAdapter As New SqlDataAdapter("SELECT * FROM Table_TB WHERE NAME_TB LIKE '%" & Trim$(TextBox1.Text) & "%'", conns)
conns.Open()
DataAdapter.Fill(ds)
If ds.Rows.Count() = 0 Then
MsgBox("لم يتم العثور على شيء", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
TextBox1.Text = ""
conns.Close()
Exit Sub
Else
ConnectSERVER()
conns.Close()
Exit Sub
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Tryتحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
