[@@أبورائد@@]

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





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

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 


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