如何使vb與mysql連接，并且在其他電腦上不用安裝和設(shè)置odbc

首先得建立odbc數(shù)據(jù)源！步驟如下：

多端合一成都響應(yīng)式網(wǎng)站建設(shè)公司:PC+平板+手機(jī),同一后臺(tái)修改數(shù)據(jù)多端同步更新提交您的需求,獲取網(wǎng)站建設(shè)與營銷策劃方案報(bào)價(jià),我們會(huì)在1小時(shí)內(nèi)與您聯(lián)系!

1.

在資源管理器或者

我的電腦中，進(jìn)入到控制面板-管理工具，可以看到“數(shù)據(jù)庫odbc項(xiàng)”。

2.

雙擊“數(shù)據(jù)源（odbc）”項(xiàng)，進(jìn)入到數(shù)據(jù)源的配置。

3.

要想創(chuàng)建一個(gè)指定的數(shù)據(jù)庫，點(diǎn)“添加按鈕”，將出現(xiàn)數(shù)據(jù)源類型選擇對(duì)話框，

在這一部中，你一定要寫明連接的是sql

server

還是aceess。

4.點(diǎn)完成，進(jìn)入到建立不同數(shù)據(jù)源的配置項(xiàng)或配置向?qū)?，注意，不同的?shù)據(jù)庫，配置界面有所不同。我介紹的是sql

，首先要輸入數(shù)據(jù)源的名稱，描述信息和指定服務(wù)器

5.

下一部，進(jìn)入到sql連接的安全驗(yàn)證，可以選擇以windows

nt驗(yàn)證方式或者sql登陸的方式。

6.再點(diǎn)擊下一部，安全通過后，進(jìn)行sql數(shù)據(jù)庫的連接。

7.

繼續(xù)進(jìn)行下一部操作，進(jìn)行一些系統(tǒng)消息語言，日志等配置，一般保持為默認(rèn)方式。

8.點(diǎn)完成按鈕，將提示一些總結(jié)信息，并可以執(zhí)行數(shù)據(jù)與數(shù)據(jù)庫的連接測(cè)試。

這是建立odbc數(shù)據(jù)源的步驟，下面還得在模塊里面把a(bǔ)do連接的代碼寫好，才能真正連上，代碼如下：

private

sub

command_click()

dim

a

as

connection

set

a

=

new

connection

a.connectstring="dsn=pubs;uid=sa;psw"

a.open

end

sub

這有的地方你得自己改改，因?yàn)槲液湍銠C(jī)子不一樣！

自己調(diào)試吧，好的程序都是調(diào)試出來的！

在VB中，如何連接MYSQL

樓上講的是VB2005的連接方法，不知道你用的是什么版本的VB,我給你一個(gè)VB6.0的連接方法吧

先在本機(jī)上安裝最新的ODBC CONNECTER/mysql

無需設(shè)置ODBC,就可以使用.

注意MYSQL的帳戶登錄是根據(jù)主機(jī)的,設(shè)置好MYSQL的帳戶后再做測(cè)試.

測(cè)試代碼:

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存數(shù)據(jù)到mysql

在VB中存儲(chǔ)數(shù)據(jù)到MySQL數(shù)據(jù)庫的過程非常簡單，只需要建立一個(gè)數(shù)據(jù)庫連接，然后使用SQL語句將數(shù)據(jù)寫入數(shù)據(jù)庫即可。

如何用VB連接MySQL數(shù)據(jù)庫求解答

最簡單的辦法是：在VB里添加一個(gè)ADO部件，將其放到窗體中，然后右鍵選擇屬性，在其屬性頁的下面有個(gè)生成連接字符串的項(xiàng)，點(diǎn)擊其后的按鈕，然后一步步的來做（很簡單的），然后連接字符串就會(huì)在那里生成，只要拷貝這個(gè)字符串，就可以用ADODB來連接了。。。