db_port = "3306"
db_server = server_t.Text
db_name = dbase_t.Text
db_user = user_t.Text
db_pass = pass_t.Text
constr = "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=Driver=MySQL ODBC 5.2a Driver;Mode=ReadWrite;" & _
"PORT=" & db_port & ";" & _
"SERVER=" & db_server & ";" & _
"DATABASE=" & db_name & ";" & _
"UID=" & db_user & ";" & _
"PWD=" & db_pass & ";"
Adodc1.ConnectionString = constr
stt.Caption = Adodc1.CursorLocation
Adodc1.Refresh
6.به تعداد فیلدهایی که ایجاد کرده اید،جعبه متن قرار دهید و آنها را به AdoDC متصل کنید.
7.با اجرای این دستورات،حدود 30 ثانیه طول خواهد کشید تا نرم افزار به پایگاه داده آنلاین MySQL متصل شود.
8.دستورات حذف/ویرایش/افزودن به صورت زیر است:
Adodc1.Recordset.AddNew
...
Adodc1.Recordset.Save
Adodc1.Recordset.Resync
Adodc1.Recordset.Requery
و
Adodc1.Recordset.Delete
Adodc1.Recordset.Resync
Adodc1.Recordset.Requery
موفق باشید/.