الرجاء المساعدة في هذا الكود

مغلق

بدأه Windowsnet في 8 مارس 2003 · 7 رد · 701 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#18 مارس 2003 في 19:03 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

السؤال باختصار هو عندي الكود التالي:

Dim Rs As Recordset

Set gCurrentDB = OpenDatabase("Book.mdb")

Set Rs = gCurrentDB.OpenRecordset("select * from Table1 ")

حاولت ان اجعل مكان كلمة Table1 محتوى تكست بوكس بحيث تصبح مثلا هكذا:

Dim Rs As Recordset

Set gCurrentDB = OpenDatabase("Book.mdb")

Set Rs = gCurrentDB.OpenRecordset("select * from Text1.text ")

ولكني لم انجح

الرجاء المساعدة

وشكرا

#28 مارس 2003 في 20:54

Dim Rs As Recordset

Set gCurrentDB = OpenDatabase("Book.mdb")

Set Rs = gCurrentDB.OpenRecordset("select * from" '&Text1.text &')

#39 مارس 2003 في 06:04

شكرا أخي زعيم

ولكن الكود لا يعمل

شكرا

#49 مارس 2003 في 06:48

مرحباً

لا يمكن أن تتعامل مع text boxبنفس طريقة تعاملك مع table

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#59 مارس 2003 في 11:44

السلام عليكم

أخي جرب هذا الكود يمكن ينجح .

Set Rs = gCurrentDB.OpenRecordset("select * from " & Text1.Text)

#69 مارس 2003 في 22:01

شكرا أخي العزيز Visitor_OM

الكود 100%

اذا ممكن هذا الكود كذلك اريد استبدال "Code" ب "Text1.Text"

SQL = "SELECT DISTINCTROW  Code.Title, Code.Category, Code.Level, Code.Description"

#79 مارس 2003 في 22:44

الحمد لله هذا من فضل ربي

بس أخي ممكن تعطيني فكرة عن Code الذي تريد إن تستبدله ب TextBox على أساس أكون في الصورة .

لكن هل Code هو جدول إذا كان كذلك ففعل التالي :

SQL = "SELECT DISTINCTROW " & Text1.Text & "," & Text2.Text & "," & Text3.Text & "," & Text4.Text & ""

تحياتي .

#89 مارس 2003 في 23:52

شكرا جزيلا أخي العزيز Visitor_OM

وجزاك الله خيرا

الكود 100%

هذا الموضوع مغلق.