02-08-13, 12:14 PM
انا حولت الكود من سكول الى اكسس ولكن الخطا بالسطر
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
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