+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 (/showthread.php?tid=13039)
من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - scsi7000 - 25-08-15
السلام عليكم ...من لذيه مثال مبسط عن برنامج بفيجوال بيسك6 مربوط بقاعدة بيانات سيكيول سيرفر 2008
وشكرا جزيلا لاخواننا المبرمجين
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - أبو عمر - 26-08-15
PHP كود :
Option Explicit
'=============================
'VB4ARAB.COM
' Created By Lion_Ksa
'2015
'Note:
'If you have SQL EXPRESS you need use .\SQLEXPRESS
'Or severname\SQLEXPRESS;
'If EnterPRISE etc use only .\;
'Or servername;
'Good luck
'=============================
Public db As New ADODB.Connection
Public Rs As New ADODB.Recordset
Private Sub Command1_Click()
If db.State Then db.Close
With db
.Open "PROVIDER=MSDataShape;" & _
"Data Provider=SQLOLEDB.1;" & _
"Data Source=.\SQLEXPRESS;" & _
"Initial Catalog=master;" & _
"Integrated Security=SSPI;Persist Security Info=true;" & _
"User ID=;" & _
"Password=;" & _
" providerName=System.Data.SqlClient"
End With
Rs.Open "MSreplication_options", db, 1, 3
MsgBox Rs.RecordCount
End Sub
[attachment=7715]
[attachment=7716]
دعواتك
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - scsi7000 - 26-08-15
جزاك الله خير يا اخي وشكرا جزيلا
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - scsi7000 - 26-08-15
اخي مشكور اشتغل معي الاتصال بقاعده البيانات اشتغل برنامجي مثلا البحث شغال بس بعض الاوامر لم تشتغل خصوصا التي تحتوي علي تاريخ حسب ما قرات بالنت انه اوامر التاريخ في قاعده البيانات اكسس تختلف عن الاسكيوال سيرفر
مثلا انا لذي هذا الامر كيف ممكن ان يعدل ليشتغل مع قاعدة البيانات الاسكيوال سيرفر
كود :
rs5.Open "select * from tt_is where name like '" & Text1.Text & "%' and date >= #" & Format(CDate(DTPicker1.Value), "mm/dd/YYYY") & "# and date <= #" & Format(CDate(DTPicker2.Value), "mm/dd/YYYY") & "#;", conn5, adOpenStatic, adLockOptimisticرسالة الخطأ التي تظهر هي:
Run-time error '-2147217900 (80040e14)': incorrect syntax near'#'.
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - scsi7000 - 27-08-15
تم حل المشكله وهي ازلت علامة المربع من الجهتين واشتغل الكود.....شكرا جزيلا
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - أبو عمر - 27-08-15
العفو
# تستخدمها اذا الحقل نوع تاريخ فقط !!
بالمناسبة اذا اردت شكر احد ما
عليك فقط ان تضغط على شكرا فقط دوت العناء لكتابة اي جملة
بالتوفيق
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - scsi7000 - 30-08-15
السلام عليكم ..كود الاتصال الاسكيوال سيرفر شغال معي علي نفس السيرفر بس اذا حاولت ان اشبك من كمبيوتر ثاني (كلينت) ما يشتغل يعطي الرساله التابية
invalid connection string attribute
ماذا افعل لاجعله يشتفل من كمبيوتر المستخدم..وشكرا
RE: من لذيه مثال عن فيجوال بيسك6 مربوط مع سيكيول سيرفر 2008 - MicroDoha - 11-04-16
بارك الله فيك ... بالتوفيق