[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 )

---

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

[atefkhalf2004]

ايضا كيف اضع
TEXTBOX كمتغير

زميل فاضل رد علي علي الخاص اشكره ومش عارف ارد الشكر
قد يكون مشكلة في الموقع لكن وجب الشكر

[kebboud]

(10-02-23, 11:52 PM)atefkhalf2004 كتب : ايضا كيف اضع
TEXTBOX  كمتغير

زميل فاضل رد علي علي الخاص اشكره  ومش عارف ارد الشكر  
قد يكون مشكلة في الموقع لكن وجب الشكر

سبحان الله
و لما حصلت على الجواب من الزميل بصفة سرية و أنت تعرف حاجتنا إلى هذا الكود يجب عليك أن تنشره ليستفيد الجميع
لا لإحتكار العلم

[atefkhalf2004]

حضرتك سوف اضعه من غير ما تقول انا عرفت من الموبايل ولما اعود للمنزل سوف اضعه وللعلم انا مؤيدك

---

لاحظ ردي انا مش متمكن من الموبايل

---

Sub NoInvo(ByVal intable As String)
If objconn.State = ConnectionState.Closed Then objconn.Open()
Dim cmd As New OleDbCommand("SELECT max(invon) as theinvono FROM [" & intable & "] ", objconn)
Me.TextBox1.Text = cmd.ExecuteScalar
End Sub

[atefkhalf2004]

http://vb4arb.com/vb/user-25719.html
تم وضح الحل

---

kebboud
تم وضح الحل الذي وصلني

---

kebboud
تم وضح الحل الذي وصلني