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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية تمرير اسم الجدول في جملة الاستعلام (/showthread.php?tid=45423)

كيفية تمرير اسم الجدول في جملة الاستعلام - atefkhalf2004 - 10-02-23

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

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 )
برجاء تصويب الكود لتنفيذ الاستعلام

RE: كيفية تمرير اسم الجدول في جملة الاستعلام - atefkhalf2004 - 10-02-23

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

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

RE: كيفية تمرير اسم الجدول في جملة الاستعلام - kebboud - 11-02-23

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

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

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

RE: كيفية تمرير اسم الجدول في جملة الاستعلام - atefkhalf2004 - 11-02-23

حضرتك سوف اضعه من غير ما تقول انا عرفت من الموبايل ولما اعود للمنزل سوف اضعه وللعلم انا مؤيدك
لاحظ ردي انا مش متمكن من الموبايل
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

RE: كيفية تمرير اسم الجدول في جملة الاستعلام - atefkhalf2004 - 13-02-23

http://vb4arb.com/vb/user-25719.html
تم وضح الحل
kebboud
تم وضح الحل الذي وصلني
kebboud
تم وضح الحل الذي وصلني