需要安裝MYSQL ODBC驅動程序.下載地址: Application Programming Interfaces (APIs) Official APIs: The C API is included with the server, above. Connector/ODBC - MySQL ODBC driver Connector/ODBC 3.52 -- development release Connector/ODBC 3.51 -- production release Connector/ODBC 2.50 -- old release //呵,我用的是這個,內有9X/NT版本的驅動 裝成功以后,在ODBC數(shù)據(jù)源建一個MYSQL的ODBC(一般在最下面):輸入ODBC名,用戶,密碼,數(shù)據(jù)庫名等. 接下來就用這個ODBC進行聯(lián)接就可以了.(當然你要先啟動MYSQL)

創(chuàng)新互聯(lián)公司是一家專注于網站設計制作、成都網站制作與策劃設計,旅順口網站建設哪家好?創(chuàng)新互聯(lián)公司做網站,專注于網站建設十載,網設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:旅順口等地區(qū)。旅順口做網站價格咨詢:13518219792
1、顯示密碼
如:MySQL
連接遠程數(shù)據(jù)庫(192.168.5.116),端口“3306”,用戶名為“root”,密碼“123456”
C:/mysql -h
192.168.5.116 -P 3306 -u root -p123456
2、隱藏密碼
如:MySQL 連接本地數(shù)據(jù)庫,用戶名為“root”
C:/mysql -h
localhost -u root -p
Enter password:
必須安裝mysql的驅動才行,不管是vb還是c++都需要這個驅動。
代碼如下:
public
function
exemysql(byval
sql
as
string)
as
adodb.recordset
sql
=
trim$(sql)
set
conn
=
new
adodb.connection
set
rs
=
new
adodb.recordset
conn.open
"driver=mysql
odbc
3.51
driver;"
_
"server=服務器地址;"
_
"port=3306;"
_
"database=數(shù)據(jù)庫名;"
_
"uid=用戶名;"
_
"pwd=密碼"
conn.defaultdatabase
=
"數(shù)據(jù)庫名"
conn.cursorlocation
=
aduseclient
set
rs.activeconnection
=
conn
rs.locktype
=
adlockbatchoptimistic
rs.cursortype
=
adopenkeyset
rs.open
sql
set
exesql
=
rs
set
rs
=
nothing
set
conn
=
nothing
end
function
樓上講的是VB2005的連接方法,不知道你用的是什么版本的VB,我給你一個VB6.0的連接方法吧
先在本機上安裝最新的ODBC CONNECTER/mysql
無需設置ODBC,就可以使用.
注意MYSQL的帳戶登錄是根據(jù)主機的,設置好MYSQL的帳戶后再做測試.
測試代碼:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
"SERVER=192.168.0.1;" _
" DATABASE=db_name;" _
"UID=username;PWD=password; OPTION=3"
conn.Open
'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
"txt text, dt date, tm time, ts timestamp)"
'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") "Initial my_ado Result Set " String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.name,
Next
Debug.Print
Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
conn.Close
最簡單的辦法是:在VB里添加一個ADO部件,將其放到窗體中,然后右鍵選擇屬性,在其屬性頁的下面有個生成連接字符串的項,點擊其后的按鈕,然后一步步的來做(很簡單的),然后連接字符串就會在那里生成,只要拷貝這個字符串,就可以用ADODB來連接了。。。
和SQL數(shù)據(jù)庫差不多的,下面是我用vb6.0連接本地mysql數(shù)據(jù)庫的連接字符串
"driver={MySQL?ODBC?3.51?Driver};server=127.0.0.1;database=mysql;uid=root;pwd=sasa"
文章標題:vb訪問mysql怎么寫 vb和mysql如何連接
URL標題:http://chinadenli.net/article10/hpesdo.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供域名注冊、網站建設、動態(tài)網站、、網站維護、App設計
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)