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

مطلوب من الخبراء الدخول

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

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

اخواني الخبراء في هذا المنتدى العلمي لدي سؤال واتأمل من كم اجابة ان شاء الله والسؤال كالتالي:

هل يمكن ربط برنامج في جهاز ما بقاعدة بيانات بالانترنت بمعنى اخر يكون برنامج قواعد بيانات لادخال بيانات موجود بالجهاز ولاتستطيع ان تدخل بيانات الا بالاتصال بالانترنت لان قاعدة البيانات موجودة على الانترنت اظن ان المعلومة وصلت

المطلوب:

ان كانت هذه الطريقة موجودة كيف يمكنني ان اتصل بالسيرفر وادخل اليوسرنيم والباسوورد اعني كيف استطيع الاتصال بالسيرفر المستظيف لقاعدة بياناتي وكيفية ارسال بياناتي لقاعدة البيانات علما ان قاعدة البيانات سوف تكون اس كيو ال sql باستخدام Mysql

راجيا منكم الرد المفيد

شكرا لكم ولجميع اعضاء هذا المنتدى

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

#2

أول : شئ يجب أن يكون السيرفر الذي علية mysql

يدعم سحب قواعد البيانات عن طريق الأيبي

ثانياً : يجب تنزيل أدارة الربط الموجوده على موقع mysql أو تجدة في المنتدى http://www.arabteam2000.com/forums/index.p...pic=68900&st=15

ثالثا : تعمل إعداد إتصال بواسطة ODBC ابدأ -> إعدادات -> لوحة التحكم -> أدوات إدارية -> مصادر البيانات (ODBC)

رابعا : تفتح مشروع جديد وتضيف للمشروع ADO

خامساً: اضف كود الإتصال

وهذا مثال

Private Sub Form_Load()
Dim mydbo As ADODB.Connection
Dim rs As Recordset


Set mydbo = New ADODB.Connection
mydbo.ConnectionString = "DSN=mysql_connct"
mydbo.Open

Set rs = mydbo.Execute("SELECT * FROM text ORDER BY texst_id")
For i = 0 To 500
If (rs.EOF <> True) Then
Text1.Text = rs.Fields(1)

rs.MoveNext
End If

Next i
End Sub

مبرمج ومصمم المواقع التالية :

kifee.com

f3f3.com

alibabaa.com

10up.com

jawal4arab.com

والجاي أحلى :cool:

#3

مشكور اخي على التفاعل معي جزاك الله خيرا واسف على الازعاج واخذ الوقت منك في كتابة الرد المفيد

ثانك يو

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

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