[atefkhalf2004]

كيف استخدم هذا الاجراء مع تغيير اسم الجدول\

PHP كود :

   Sub NoInvo(ByVal intable As String)

        'كود حساب رقم الفاتورة
        'Try
        'where theuser='" & usernames & "'
        If objconn.State = ConnectionState.Closed Then objconn.Open()
        Dim adp As OleDbDataAdapter = New OleDbDataAdapter
        Dim cmd As New OleDbCommand
        cmd = New OleDbCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT max(invon) as theinvono FROM    '" & intable & "' "
        cmd.Connection = objconn

        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader
        Me.TextBox1.Text = ""
        dr.Read()

        If dr.HasRows = False Or IsDBNull(dr.Item("theinvono")) Then

end if 


وعند تنفيذ الاجراء 


NoInvo(intable )

---

برجاء تصويب الكود لتنفيذ الاستعلام