الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار عن Sql لفتح سجلات معينة

بدأه alimf في 27 سبتمبر 2008 · 1 رد · 628 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

كل عام وانت بخير تقبل الله منا ومنكم صالح الاعمال وعادة الله علينا بخير

عندي استفسار بسيط طبعاً الكل يعلم هذا الكود

Sql = "select * from nam1 where num like '" & Text1.Text & “’”

طبعاً الكود واضح ولكن المراد من هذا الاستفسار هو ان أضيف علية امر بحيث ياتيني بسجل قبلة او سجل بعدة أي واحد مع العلم ان text1.text تساوي احرف وارقام لاني جربة الكود هذا

Sql ="select * from nam1 where num >" & Trim(Text1.Text)

ونجح معاي للارقم فقط هو ماجاء بسجل واحد بس بل كل السجلات الي بعدة بس اد القرض نوعاً ما فالمراد الان هو معرفة sql المطلوب للمشكلة الي عندي

وعندي ايضاً سؤال اخر هل ممكن اعمل اتصال بقواعد البيانات sql server بطريقة اخرى غير اتصال adodb

مثال يعني مثل هذا

	
	 UserName = txtUserName.Text
	 Password = txtPassword.Text
	 ServerName = txtServerName.Text
	 DBName = txtDatabaseName.Text

 Dim Cn As New ADODB.Connection
Dim RS As New ADODB.Recordset

	Cn.ConnectionTimeout = 25									
	Cn.Provider = "sqloledb"										
Cn.Properties("Data Source").Value = ServerName				
connection properties.
Cn.Properties("Initial Catalog").Value = DBName				 
connection properties.

	If optWinNTAuth.Value = True Then
	   Cn.Properties("Integrated Security").Value = "SSPI"
  Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & DBName & ";Data Source=" & ServerName & "alimf"
	Else
		Cn.Properties("User ID").Value = UserName
		Cn.Properties("Password").Value = Password
	End If

برنامج البدر للفنادق

برنامج اداري ومحاسبي و خدمي و سنترال

afalqi@hotmail.com

#2

بالنسبة للشق الأول من السؤال فإنت محتاج أن تضع نص البحث بين إثنين من الـ Single Quotation

مثل هذا :


Sql ="select * from nam1 where num <'" & Trim(Text1.Text) & "'"
Sql ="select * from nam1 where num >'" & Trim(Text1.Text)  & "'"

أما لو هذا :

Sql ="select * from nam1 where num >" & Trim(Text1.Text)

فهو يعنى أن الحقل num اساسا هو رقم .. أي أنك إذا إستخدمته في حقل من نوع نص سيرجع لك الأمر بخطأ - Run Time Error - وليس بنتيجة خطأ

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

وبالنسبة للشق الثاني فإن ما فهمته صحيحا أنك تريد الإتصال بقاعدة اليانات بمكتبة غير الـ ADO فأنا لم أجرب ولكني أعتقد بأن الـ SQL Server يحتوى على المكتبات التي تخصه دون الحاجة إلى مكتبات Microsoft .. مع العلم بأني لم أجرب هذا.

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

مواضيع مشابهة