الرئيسيةاريد مساعدة في خلل الاتصال بقاعدة البيانات من خلال الانترنت مع no-ip و mysql و vb6
صفحة 1 من اصل 1 • شاطر
اريد مساعدة في خلل الاتصال بقاعدة البيانات من خلال الانترنت مع no-ip و mysql و vb6
من طرف scsi7000 السبت أكتوبر 29, 2022 8:03 am
السلام عليكم
انشأت سيرفر ال xampp علي كمبيوتري ووضعت عليه قاعدة بيانات وكانت البرامج المنشئه بال vb6 شغاله خلال نفس الشبكه لكن
لم استخدمت خدمه no-ip لجعل البرنامج يشتغل من خلال النت ووضعت عنوان ال no-ip مثلا (test1980.hopto.org) ظهرت رساله خطأ مع انه اذا ادخلت العنوان في المتصفح متبوع ب phpmyadmin مثلا (test1980.hopto.org\phpmyadmin) تظهر قاعدة البيانات
ال hosts
127.0.0.1 localhost
127.0.0.1 test1980.hopto.org
ال vhost
<VirtualHost *:80>
DocumentRoot "C:/xampp/htdocs"
ServerName test1980.hopto.org
ServerAlias http://www.test1980.hopto.org
<Directory "c:/xampp/htdocs">
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
والاتصال من خلال الفجوال بيسك 6
Option Explicit
Public conn1 As ADODB.Connection
Public rs1 As ADODB.Recordset
Sub connect1()
Set conn1 = New ADODB.Connection
conn1.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & Form12.Text1.text & ";port=& Form12.Text5.text &; database=" & Form12.Text2.text & "; user=" & Form12.Text3.text & "; password=" & Form12.Text4.text & "; option=3;"
conn1.Open
If conn1.State = adStateOpen Then
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = conn1
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.Source = "SELECT * FROM table1"
rs1.Open
End If
End Sub
فأرجو من لديه الحل لهذا الخلل يرشدني عليه مع الشكر
انشأت سيرفر ال xampp علي كمبيوتري ووضعت عليه قاعدة بيانات وكانت البرامج المنشئه بال vb6 شغاله خلال نفس الشبكه لكن
لم استخدمت خدمه no-ip لجعل البرنامج يشتغل من خلال النت ووضعت عنوان ال no-ip مثلا (test1980.hopto.org) ظهرت رساله خطأ مع انه اذا ادخلت العنوان في المتصفح متبوع ب phpmyadmin مثلا (test1980.hopto.org\phpmyadmin) تظهر قاعدة البيانات
ال hosts
127.0.0.1 localhost
127.0.0.1 test1980.hopto.org
ال vhost
<VirtualHost *:80>
DocumentRoot "C:/xampp/htdocs"
ServerName test1980.hopto.org
ServerAlias http://www.test1980.hopto.org
<Directory "c:/xampp/htdocs">
Order allow,deny
Allow from all
</Directory>
</VirtualHost>
والاتصال من خلال الفجوال بيسك 6
Option Explicit
Public conn1 As ADODB.Connection
Public rs1 As ADODB.Recordset
Sub connect1()
Set conn1 = New ADODB.Connection
conn1.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=" & Form12.Text1.text & ";port=& Form12.Text5.text &; database=" & Form12.Text2.text & "; user=" & Form12.Text3.text & "; password=" & Form12.Text4.text & "; option=3;"
conn1.Open
If conn1.State = adStateOpen Then
Set rs1 = New ADODB.Recordset
rs1.ActiveConnection = conn1
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.Source = "SELECT * FROM table1"
rs1.Open
End If
End Sub
فأرجو من لديه الحل لهذا الخلل يرشدني عليه مع الشكر
scsi7000- .
- تاريخ التسجيل : 24/10/2012
المساهمات : 3
النقاط : 7
التقيم : 0
الدولة :
الجنس :
رد: اريد مساعدة في خلل الاتصال بقاعدة البيانات من خلال الانترنت مع no-ip و mysql و vb6
من طرف كريم ياسين الأربعاء يوليو 12, 2023 2:48 pm
إتقان شركة متخصصة في تأسيس الشركات وتطوير الأعمال نسعى لتقديم الدعم الكامل للمستثمرين وأصحاب المشاريع لمساعدتهم في تأسيس أعمالهم في دبي. توفير مجموعة متكاملة من الخدمات
تأسيس شركة في جبل علي
تكلفة تأسيس شركة في دبي
تأسيس شركة في دبي
كريم ياسين- ..
- تاريخ التسجيل : 28/06/2022
المساهمات : 13
النقاط : 27
التقيم : 0
الدولة :
الجنس : -
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
» مظلات وسواتر الرياض
» شركة تنظيف فلل بالرياض
» شركة تنظيف كنب بالرياض
» مظلات وسواتر
» شركة تنظيف خزانات بالرياض
» افضل شركة رش مبيدات بالرياض
» ارخص شركة مكافحة الصراصير بالرياض
» شركة مكافحة حشرات في راس الخيمة
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح