+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اشكاليه في البحث في البيانات عبر VB net (/showthread.php?tid=13591)
اشكاليه في البحث في البيانات عبر VB net - madinahson - 23-10-15
اخواني الافاضل عندي الكود التالي :
Dim saveinfo As New OleDb.OleDbCommand
Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\a.accdb"
Dim conn As New OleDbConnection(constr)
Dim re As OleDbDataReader
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, conn)
saveinfo.Connection = conn
saveinfo.CommandType = CommandType.Text
Dim asd As String
(asd = Trim(TextBox5.Text
& saveinfo.CommandText = ("select * from ba where Name = " & asd
conn.Open()
re = saveinfo.ExecuteReader
re.Read()
TextBox1.Text = re("Id")
TextBox2.Text = re("Name")
TextBox3.Text = re("Age")
TextBox4.Text = re("Job")
conn.Close()
عند التنفيذ يأتي الخطأ التالي : لم يتم إعطاء قيمة لمعلمة أو أكثر من المعلمات المطلوبة
مع العلم انني لو قمت بوضع الاستعلام بشكل صريح اي لو كنت ابحث عن الاسم "عماد" في الاستعلام فستكون النتيجه صحيحه ويتم اكمال بيانات الاستعلام بشكل ممتاز
لكن عند جلب القيمه من متغير فتكون النتيجه ايقاف الكود ورسالة الخطأ .
اعتذر عن تداخل الكود بسبب القص واللصق هنا .
RE: اشكاليه في البحث في البيانات عبر VB net - أبو عمر - 23-10-15
use = if filed type is number
use ' if filed type string
use # if field type is date
change name = " & asd
to
name like '" & asd & "'"
RE: اشكاليه في البحث في البيانات عبر VB net - سعود - 23-10-15
المثال مرفق
وهذا هو الكلاس
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
Dim con As New OleDbConnection(str)
Dim dt As DataTable
Dim cm As OleDbCommand
Private Sub gd(ByVal tn As String)
dt = New DataTable
cm = New OleDbCommand("", con)
cm.CommandText = "select * from tb where tname=@tname"
cm.Parameters.AddWithValue("@tname", tn)
If con.State = ConnectionState.Closed Then con.Open()
dt.Load(cm.ExecuteReader)
End Sub
Private Sub txtinput_KeyDown(sender As Object, e As KeyEventArgs) Handles txtinput.KeyDown
If e.KeyData = Keys.Enter Then
gd(txtinput.Text)
If dt.Rows.Count > 0 Then
tid.Clear()
tname.Clear()
age.Clear()
job.Clear()
tid.Text = dt(0)(0)
tname.Text = dt(0)(1)
age.Text = dt(0)(2)
job.Text = dt(0)(3)
End If
txtinput.Clear()
End If
End Sub
End Class
RE: اشكاليه في البحث في البيانات عبر VB net - madinahson - 23-10-15
بارك الله فيكم شاكرا لكم تعاونكم وجميل صنيعكم