ممكن تصليح خطا بالكود - نسخة قابلة للطباعة

ممكن تصليح خطا بالكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : ممكن تصليح خطا بالكود (/showthread.php?tid=9901)

ممكن تصليح خطا بالكود - محاسب يوسف - 02-08-13

انا حولت الكود من سكول الى اكسس ولكن الخطا بالسطر

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

ممكن تصليح خطا بالكود - AHMED HUSSIEN - 02-08-13

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

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

PHP كود :

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

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

PHP كود :

myCommand.Parameters.Add(New OleDb.OleDbParameter("@likeString", OleDb.OleDbType.VarChar, 60, "likeString")) 

ممكن تصليح خطا بالكود - سعود - 03-08-13

اليست الكلمات محجوزة like,string

ممكن تصليح خطا بالكود - @@أبورائد@@ - 03-08-13

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

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

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(sql, myConn)
        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 

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

ممكن تصليح خطا بالكود - Abu Ehab - 03-08-13

يعطيكم العافيه