تمت الإجابة كيف احل هذا الخطا في visual basic

تم تحميل الصفحة في 0,7771771 ثانية
كيف احل هذا الخطا في visual basic
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Abufahmi

مُميّز نُقطة لُغات البَرمَجة
rankrank
إنضم
23 سبتمبر 2013
المشاركات
265
الإعجابات
408
النقاط
63
الإقامة
Jordan
هو بيحكيلك بانه لا يوجد قيمة لبراميتر او اكثر
اما بالنسبة لباقي الكود فهكذا اصح :

كود:
    Dim dr As OleDbDataReader = command.ExecuteReader()

        While dr.Read()
            Dim ProductID As String = dr.GetValue(0).ToString()
            Dim ProductName As String = dr.GetString(1)
        End While
        reader.Close()
 

jasoncopy

Beginner Developer
rank
إنضم
15 يونيو 2016
المشاركات
17
الإعجابات
13
النقاط
3
العمر
30
اذا كيف اقوم بتصحيح الخطأ
فأنا مبتدئ

هو بيحكيلك بانه لا يوجد قيمة لبراميتر او اكثر
اما بالنسبة لباقي الكود فهكذا اصح :

كود:
    Dim dr As OleDbDataReader = command.ExecuteReader()

        While dr.Read()
            Dim ProductID As String = dr.GetValue(0).ToString()
            Dim ProductName As String = dr.GetString(1)
        End While
        reader.Close()
 

Abufahmi

مُميّز نُقطة لُغات البَرمَجة
rankrank
إنضم
23 سبتمبر 2013
المشاركات
265
الإعجابات
408
النقاط
63
الإقامة
Jordan
اذا كيف اقوم بتصحيح الخطأ
فأنا مبتدئ
ليس تصحيح الخطأ اخي انما اعادة هيكلة للفنكشن ....
احكيلي ايش بدك بالضبط طبقا للجدول من قاعدة البيانات بالصورة حتي استطيع مساعدتك
 

jasoncopy

Beginner Developer
rank
إنضم
15 يونيو 2016
المشاركات
17
الإعجابات
13
النقاط
3
العمر
30
أريد لما أدخل معرف المنتج و أضغط على انتر يقوم بجلب اسم المنتج و سعره و تاريخ نهاية الصلاحية

ليس تصحيح الخطأ اخي انما اعادة هيكلة للفنكشن ....
احكيلي ايش بدك بالضبط طبقا للجدول من قاعدة البيانات بالصورة حتي استطيع مساعدتك
 

Abufahmi

مُميّز نُقطة لُغات البَرمَجة
rankrank
إنضم
23 سبتمبر 2013
المشاركات
265
الإعجابات
408
النقاط
63
الإقامة
Jordan
أريد لما أدخل معرف المنتج و أضغط على انتر يقوم بجلب اسم المنتج و سعره و تاريخ نهاية الصلاحية
بتستعمل هذا الفنكشن للجلب
(طبعا استعمل جملة الاتصال الخاصة بك)
كود:
    'Abufahmi Code Generator ----------------------- Select by ID function ---------------------
    Public Function GetDataBy_ProductID(ProductID As String) As DataTable
        Dim con As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = D:\Visaul Projects\Tutorial\Get Data\Get Data\bin\Debug\products.accdb;")
        Dim Query As String = String.Empty
        Query = "Select ProductID As [المعرف], ProductName As [اسم الصنف], ExpDate As [تاريخ الانتهاء], BuyPrice As [سعرالشراء], SalePrice As [سعر البيع], Qtt As [الكمية], UG As [مجهول] From [Products] Where ProductID = @ProductID"

        Dim param As OleDbParameter() = New OleDbParameter(0) {}
        param(0) = New OleDbParameter("@ProductID", OleDbType.VarChar, 255)
        param(0).Value = ProductID

        Dim cmd As New OleDbCommand(Query, con)
        cmd.Parameters.AddRange(param)
        Dim da As New OleDbDataAdapter(cmd)

        Dim dt As New DataTable()
        Try
            da.Fill(dt)
        Catch
        End Try
        Return dt
    End Function


وهذا بحدث الكي تاع المعرف

كود:
    'Abufahmi Code Generator ----------------------- Select event ---------------------
    Private Sub TxProductID_KeyDown(sender As Object, e As KeyEventArgs) Handles TxProductID.KeyDown
        If Not String.IsNullOrEmpty(TxProductID.Text) Then
            If e.KeyCode = Keys.Enter Then
                Dim dt As New DataTable()
                dt = GetDataBy_ProductID(TxProductID.Text)
                If (dt.Rows.Count > 0) Then
                    TxProductName.Text = dt.Rows(0)(1).ToString()
                    DTPExpDate.Text = dt.Rows(0)(2).ToString()
                    TxBuyPrice.Text = dt.Rows(0)(3).ToString()
                    TxSalePrice.Text = dt.Rows(0)(4).ToString()
                    TxQtt.Text = dt.Rows(0)(5).ToString()
                    TxUG.Text = dt.Rows(0)(6).ToString()
                End If
            End If
        End If
    End Sub
وهذا كل شيء
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل