منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية تمرير اسم الجدول في جملة الاستعلام

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

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 )

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

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

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

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

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

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

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

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

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

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

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