VB怎么連接mysql

用ODBC！

創(chuàng)新互聯(lián)是一家朝氣蓬勃的網(wǎng)站建設(shè)公司。公司專注于為企業(yè)提供信息化建設(shè)解決方案。從事網(wǎng)站開發(fā)，網(wǎng)站制作，網(wǎng)站設(shè)計，網(wǎng)站模板，微信公眾號開發(fā)，軟件開發(fā)，微信小程序，十載建站對成都邊坡防護(hù)網(wǎng)等多個領(lǐng)域，擁有豐富的營銷推廣經(jīng)驗(yàn)。

先到下載mysql 的 odbc驅(qū)動，裝上以后 ，再配置數(shù)據(jù)源，再在vb里面編程連接！

vb高手進(jìn)，vb連接mysql數(shù)據(jù)庫，怎么把數(shù)據(jù)寫入數(shù)據(jù)庫！

必須安裝mysql的驅(qū)動才行，不管是vb還是c++都需要這個驅(qū)動。

代碼如下：

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=服務(wù)器地址;"

_

"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

在VB中，如何連接MYSQL

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

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

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

注意MYSQL的帳戶登錄是根據(jù)主機(jī)的,設(shè)置好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

怎么導(dǎo)入mysql數(shù)據(jù)

方法/步驟

1

登錄到phpMyAdmin

2

新建一個要導(dǎo)入的數(shù)據(jù)庫，點(diǎn)擊“+new”

3

如圖，分別填寫數(shù)據(jù)庫名稱，以及選擇數(shù)據(jù)庫的排序規(guī)則，

4

完成步驟3，點(diǎn)擊“創(chuàng)建”

5

完成步驟4，從右側(cè)就可以看到我們新創(chuàng)建的數(shù)據(jù)庫了，如果沒有立即顯示，刷新即可立馬顯示了。

6

單擊我們新創(chuàng)建的數(shù)據(jù)庫，

7

然后，我們選擇“導(dǎo)入”，

8

完成步驟7，我們點(diǎn)擊“選擇文件”，

9

點(diǎn)擊了“選擇文件”之后，就會出現(xiàn)如圖所示的彈出框，我們選擇要導(dǎo)入的sql就可以了，后綴名可以是.sql，也可以是壓縮文件.zip。如圖，選擇好文件之后，點(diǎn)擊“確定”就可以了

10

完成步驟⑨，你就可以從剛才的頁面中看到自己上傳的文件了，如圖所示，其余選項(xiàng)默認(rèn)就可以了，然后點(diǎn)擊“執(zhí)行”就可以了。

11

這個時候，你就可以看到你的數(shù)據(jù)已經(jīng)導(dǎo)入到你新創(chuàng)建的數(shù)據(jù)庫中了

vb6.0如何連接MYSQL數(shù)據(jù)庫？

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

vb連接mysql數(shù)據(jù)庫

ODBC加載.

vb中添加一個Adodc的控件.

Public Function conn() As String

conn = "Provider=SQLOLEDB.1;Password=數(shù)據(jù)庫管理密碼;Persist Security Info=True;User ID=數(shù)據(jù)庫管理帳號;Initial Catalog=數(shù)據(jù)庫名;Data Source=計算機(jī)名"

End Function

Dim rs As New ADODB.Recordset

Dim con As New ADODB.Connection

Dim sql As String

Set con = CreateObject("ADODB.Connection")

con.Open conn

sql = "select * from Admin where username='" username.Text "' and password='" password.Text "'"

rs.Open sql, con, 1, 1

網(wǎng)站欄目：linux權(quán)限區(qū)分命令,linux常用權(quán)限命令
本文URL：http://chinadenli.net/article22/heojcc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、、外貿(mào)建站、域名注冊、用戶體驗(yàn)、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)