تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اشكاليه في البحث في البيانات عبر VB net
#1
اخواني الافاضل عندي الكود التالي :

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()
عند التنفيذ يأتي الخطأ التالي : لم يتم إعطاء قيمة لمعلمة أو أكثر من المعلمات المطلوبة
مع العلم انني لو قمت بوضع الاستعلام بشكل صريح اي لو كنت ابحث عن الاسم "عماد" في الاستعلام فستكون النتيجه صحيحه ويتم اكمال بيانات الاستعلام بشكل ممتاز
لكن عند جلب القيمه من متغير فتكون النتيجه ايقاف الكود ورسالة الخطأ .

اعتذر عن تداخل الكود بسبب القص واللصق هنا .
الرد
تم الشكر بواسطة:
#2
use = if filed type is number
use ' if filed type string
use # if field type is date
change name = " & asd
to
name like '" & asd & "'"
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: سعود
#3




المثال مرفق

وهذا هو الكلاس
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 ObjectAs KeyEventArgsHandles 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 


الملفات المرفقة
.zip   FridayApp.zip (الحجم : 90.59 ك ب / التحميلات : 59)
الرد
تم الشكر بواسطة:
#4
بارك الله فيكم شاكرا لكم تعاونكم وجميل صنيعكم
الرد
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال عن ترتيب البيانات عند الاستعلام محمد اسماعيل 6 91 18-06-19, 04:44 PM
آخر رد: محمد اسماعيل
  البحث بين تاريخين لاسم معين alshandodi 9 167 18-06-19, 12:06 PM
آخر رد: elgokr
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 311 14-06-19, 03:03 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 273 03-06-19, 12:33 PM
آخر رد: سعود
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 924 03-06-19, 11:56 AM
آخر رد: سعود
  [VB.NET] عند البحث عن سجل بين تاريخين اسامه الهرماوي 2 129 22-05-19, 08:12 PM
آخر رد: اسامه الهرماوي
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 135 21-05-19, 02:03 PM
آخر رد: alshandodi
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 217 16-05-19, 01:42 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 882 15-05-19, 08:24 PM
آخر رد: asemshahen5
  خطأ أثناء عملية البحث في DATAGRIDVIEW ahmedfa71 5 128 14-05-19, 04:10 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم