تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خلل في الاتصال عن بعد ب no-ip مع vb6
#1
السلام عليكم
انشأت سيرفر ال 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

فأرجو من لديه الحل لهذا الخلل يرشدني عليه مع الشكر
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
خلل في الاتصال عن بعد ب no-ip مع vb6 - بواسطة scsi7000 - 29-10-22, 11:55 AM


التنقل السريع :


يقوم بقرائة الموضوع: