الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6
بسم الله الرحمن الرحيم
_بخطوات بسيطة يمكنك الاتصال بقواعد بيانات أوراكل من خلال الفجوال بيسك 6 وذلك من خلال ادرج المكتبة التالية للمشروع Microsoft ActiveX Data Objects 2.5 Library
_ واليكم نص الاتصال بقاعدة البيانات- الكود:
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Driver={Microsoft ODBC for Oracle};" & _
"UID=user_name;PWD=user_passsword"
conn.Open
- الكود:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "TableName", conn, adOpenDynamic, _
adLockOptimistic, adCmdTable
- الكود:
Do While Not rs.EOF
txt = ""
For Each fld In rs.Fields
txt = txt & Trim$(fld.Value) & ", "
Next fld
If Len(txt) > 0 Then txt = Left$(txt, Len(txt) - 2)
List1.AddItem txt
rs.MoveNext
Loop
rs.Close
conn.Close
مع تحياتى للجميع
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: الاتصال بقواعد بيانات Oracle من خلال الفجوال بيسك 6
اخي ممكن لو تكرمت ان تشرح خطوات الاتصال بقاعدة بيانات اوراكل موجودة على سيرفر محلي من احد الاجهزة الفرعية للشبكة المحلية اكون شاكر لك اخي
محمد الجساري- .
- تاريخ التسجيل : 11/06/2015
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد