+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : خلل في الاتصال عن بعد ب no-ip مع vb6 (/showthread.php?tid=44192)
خلل في الاتصال عن بعد ب no-ip مع vb6 - scsi7000 - 29-10-22
السلام عليكم
انشأت سيرفر ال 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
فأرجو من لديه الحل لهذا الخلل يرشدني عليه مع الشكر
RE: خلل في الاتصال عن بعد ب no-ip مع vb6 - ahmedabdelaliem - 03-11-22
وعليكم بالسلام ورحمة الله وبركاته
اخي الكريم يجب ان يكون هناك Static IP
وتقوم بتفعيل ال Port الخاص بال MYSQL
وتقوم بوضع هذه البيانات في الروتر المتصل بالسيرفر
خطوة الروتر مهمه جدا لانك بتتصل عبر الانترنت بعض الناس يستسهل ويقوم بايقاف الجدار الناري للوندوز وهذا خطأ كبير
سوف يعمل باذن الله
بالتوفيق