تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن تصليح خطا بالكود
#1
انا حولت الكود من سكول الى اكسس ولكن الخطا بالسطر


myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@likeString", System.Data.SqlDbType.VarChar, 60, "likeString"))



الكود كامل بعد التعديل

Public Function FindaccountByLiker(ByVal likeString As String) As ArrayList


Dim myDataSet As New DataSet
Dim myCommand As New OleDb.OleDbCommand
Dim myAdapter As New OleDb.OleDbDataAdapter
Dim all As New ArrayList
Dim myConn As New OleDb.OleDbConnection

Dim con1 As New connection()

myConn.ConnectionString = con1.Connect '"Data Source=LG-NBPC-PC\HADAD;Initial Catalog=pharmacye;Integrated Security=True"

myConn.Open()
myCommand.CommandText = "select * from account where ((num Like @likeString) Or (name Like @likeString)) ORDER BY num"
'
myAdapter.SelectCommand = myCommand
myCommand.Connection = myConn
myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@likeString", System.Data.SqlDbType.VarChar, 60, "likeString"))
myCommand.Parameters("@likeString").Value = likeString + "%"
myAdapter.Fill(myDataSet, "account")
Dim row As DataRow

For Each row In myDataSet.Tables("account").Rows
Dim s As New CAccount
s.num = Val(row("num")).ToString()

s.name = row("name").ToString()
s.treeNum = Val(row("treeNum").ToString())
s.tarhel = row("tarhel").ToString()
s.notc = row("notc").ToString()
s.typ = Val(row("typ").ToString())

s.tel = row("tel").ToString()
s.mobil = row("mobil").ToString()
s.id = Val(row("id").ToString())
's.idid = Val(row("idid")).ToString()
's.Balance = Val(row("Balance")).ToString()
all.Add(s)
Next

Return all
End Function
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمه الله وبركاته

كيف تستخدم هذا السطر

PHP كود :
myCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@likeString"System.Data.SqlDbType.VarChar60"likeString 

فى كود للأكسس يجب ان يكون هكذا

PHP كود :
myCommand.Parameters.Add(New OleDb.OleDbParameter("@likeString"OleDb.OleDbType.VarChar60"likeString")) 
الرد }}}}
تم الشكر بواسطة:
#3
اليست الكلمات محجوزة like,string
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته





بعد إذن الأخوة جزاهم الله خير لدي هذا التعديل


PHP كود :
Public Function FindaccountByLiker(ByVal likeString As String) As ArrayList

        Dim myConn 
As New OleDb.OleDbConnection("Data Source=LG-NBPC-PC\HADAD;Initial Catalog=pharmacye;Integrated Security=True")

        
Dim sql As String " SELECT *                  " _
                            
"   FROM [account]          " _
                            
"  WHERE [num]  Like @num   " _
                            
"     OR [name] Like @name  " _
                            
"  ORDER BY [num]           "

        
Dim myCommand As New OleDb.OleDbCommand(sqlmyConn)
        
myCommand.Parameters.AddWithValue("@num     "60)
        
myCommand.Parameters.AddWithValue("@name    "60)

        
Dim myAdapter As New OleDb.OleDbDataAdapter(myCommand)
        
Dim myDataTable As New DataTable
        myAdapter
.Fill(myDataTable)

        
Dim all As New ArrayList
        
For Each row As DataRow In myDataTable.Rows
            Dim s 
As New CAccount
            s
.num Val(r.Item("num")).ToString()

            
s.name row.Item("name").ToString()
            
s.treeNum Val(row.Item("treeNum").ToString())
            
s.tarhel row.Item("tarhel").ToString()
            
s.notc row.Item("notc").ToString()
            
s.typ Val(row.Item("typ").ToString())

            
s.tel row.Item("tel").ToString()
            
s.mobil row.Item("mobil").ToString()
            
s.id Val(row.Item("id").ToString())
            
's.idid = Val(row.Item("idid")).ToString()
            '
s.Balance Val(row.Item("Balance")).ToString()
            
all.Add(s)
        
Next
        
Return all

    End 
Function 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#5
يعطيكم العافيه

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن شرح هذه المفاهيم ابراهيم كركوكي 2 98 22-09-16, 01:00 PM
آخر رد: ابراهيم كركوكي
Lightbulb [SQL] لو سمحتم ممكن فكرة عمل جرد الاصناف #A-H.c 1 144 13-03-16, 11:44 AM
آخر رد: khodor1985
  [سؤال] ممكن كود ادخال قيمة الجيك بوكس الى قاعدةبيانات sql عمار عيثاوي 0 150 30-01-16, 01:15 PM
آخر رد: عمار عيثاوي
  [سؤال] هل ممكن اضافة ملف اكسل الى الفيجوال دوت نت 2010 محمد مسافر 2 1,625 25-10-15, 10:46 AM
آخر رد: WAEL ABED
  ممكن شرح الوراثة وكيفية استخدامها مع قواعد البيانات محاسب يوسف 2 974 11-03-15, 09:54 AM
آخر رد: محاسب يوسف
  ممكن مساعدة عمار عيثاوي 1 305 22-01-15, 09:19 PM
آخر رد: aftfm
  كيف يتم تنفيذ السكريبت بالكود محاسب يوسف 1 297 08-01-15, 05:48 PM
آخر رد: sami2015
  [كود] ممكن كود إعادة ترقيم عمود بعد حذف صف من داتاجريد فيو benomar 6 1,173 20-12-14, 10:27 PM
آخر رد: benomar
  ممكن حل للاستعلام هذا محاسب يوسف 3 365 09-09-14, 10:20 AM
آخر رد: محاسب يوسف
  ممكن مثال شرح حفظ فيديو في داتا اكسس محاسب يوسف 3 619 06-08-14, 04:29 PM
آخر رد: محاسب يوسف

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


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