السلام عليكم
انشأت سيرفر ال 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
فأرجو من لديه الحل لهذا الخلل يرشدني عليه مع الشكر
