VB怎么連接mysql

用ODBC！

創新互聯是一家朝氣蓬勃的網站建設公司。公司專注于為企業提供信息化建設解決方案。從事網站開發，網站制作，網站設計，網站模板，微信公眾號開發，軟件開發，微信小程序，十載建站對成都邊坡防護網等多個領域，擁有豐富的營銷推廣經驗。

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

vb高手進，vb連接mysql數據庫，怎么把數據寫入數據庫！

必須安裝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=數據庫名;"

_

"uid=用戶名;"

_

"pwd=密碼"

conn.defaultdatabase

=

"數據庫名"

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的連接方法吧

先在本機上安裝最新的ODBC CONNECTER/mysql

無需設置ODBC,就可以使用.

注意MYSQL的帳戶登錄是根據主機的,設置好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

怎么導入mysql數據

方法/步驟

1

登錄到phpMyAdmin

2

新建一個要導入的數據庫，點擊“+new”

3

如圖，分別填寫數據庫名稱，以及選擇數據庫的排序規則，

4

完成步驟3，點擊“創建”

5

完成步驟4，從右側就可以看到我們新創建的數據庫了，如果沒有立即顯示，刷新即可立馬顯示了。

6

單擊我們新創建的數據庫，

7

然后，我們選擇“導入”，

8

完成步驟7，我們點擊“選擇文件”，

9

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

10

完成步驟⑨，你就可以從剛才的頁面中看到自己上傳的文件了，如圖所示，其余選項默認就可以了，然后點擊“執行”就可以了。

11

這個時候，你就可以看到你的數據已經導入到你新創建的數據庫中了

vb6.0如何連接MYSQL數據庫？

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

vb連接mysql數據庫

ODBC加載.

vb中添加一個Adodc的控件.

Public Function conn() As String

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

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

網站欄目：linux權限區分命令,linux常用權限命令
本文URL：http://vcdvsql.cn/article22/heojcc.html

成都網站建設公司_創新互聯，為您提供全網營銷推廣、、外貿建站、域名注冊、用戶體驗、響應式網站

廣告

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