10-02-23, 10:44 PM
(آخر تعديل لهذه المشاركة : 10-02-23, 10:45 PM {2} بواسطة atefkhalf2004.)
كيف استخدم هذا الاجراء مع تغيير اسم الجدول\
وعند تنفيذ الاجراء
NoInvo(intable )
برجاء تصويب الكود لتنفيذ الاستعلام
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 )
برجاء تصويب الكود لتنفيذ الاستعلام