shahram_g
سه شنبه 23 تیر 1394, 23:46 عصر
سلام.
از کد زیر برای برقراری ارتباط با دیتا بیس روی یک هاست استفاده کردم:
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
' error traping
' fill the variable
db_name = "sql683646"
db_server = "sql6.freesqldatabase.com" '
db_port = "3306" 'default port is 3306.
db_user = "sql683646" 'default user name or depend on your user name on mysql.
db_pass = "******" 'depend on your password on mysql.
'/Create connection string
ConnString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/Open Connection
With Conn
.ConnectionString = ConnString
.Open
End With
MsgBox "Connected"
'_________________________________________________ __________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Error, Please check if server is running!", vbInformation, "Check Server"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
End Sub
موقع اجرای برنامه با پیغام خطای زیر روبرو میشم که ظاهرا اشکال در تنظیمات خود سیستم هست:
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver spesified
تو خیلی از سایت ها چک کردم و معمولا گفتن ایراد از تنطیمات ODBBC روی SQL Server در کنترل پنل کامپیوتر برای تنظیمات DNS هست.
اونجا وقتی می خوام تنظیمات رو انجام بدم هر چی که نام سرور رو وارد می کنم ایراد می گیره.
دیگه واقعا کلافه شدم.
ممنون میشم راهنمایی کنید.
از کد زیر برای برقراری ارتباط با دیتا بیس روی یک هاست استفاده کردم:
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
' error traping
' fill the variable
db_name = "sql683646"
db_server = "sql6.freesqldatabase.com" '
db_port = "3306" 'default port is 3306.
db_user = "sql683646" 'default user name or depend on your user name on mysql.
db_pass = "******" 'depend on your password on mysql.
'/Create connection string
ConnString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/Open Connection
With Conn
.ConnectionString = ConnString
.Open
End With
MsgBox "Connected"
'_________________________________________________ __________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
MsgBox "Error, Please check if server is running!", vbInformation, "Check Server"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
End Sub
موقع اجرای برنامه با پیغام خطای زیر روبرو میشم که ظاهرا اشکال در تنظیمات خود سیستم هست:
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver spesified
تو خیلی از سایت ها چک کردم و معمولا گفتن ایراد از تنطیمات ODBBC روی SQL Server در کنترل پنل کامپیوتر برای تنظیمات DNS هست.
اونجا وقتی می خوام تنظیمات رو انجام بدم هر چی که نام سرور رو وارد می کنم ایراد می گیره.
دیگه واقعا کلافه شدم.
ممنون میشم راهنمایی کنید.