vb資料庫mysql,vbs 資料庫

本文目錄一覽：

• 1、vb高手進，vb連接mysql資料庫，怎麼把數據寫入資料庫！
• 2、vb如何連接操作MYSQL資料庫
• 3、我想用vb操作mysql資料庫，可行否
• 4、如何用vb連接mysql資料庫
• 5、VB 連接MySQL資料庫 報錯 未發現數據源名稱且未指定默認驅動程序 求解～～感謝！！MySQL是8.0版本的

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資料庫

必須安裝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資料庫，可行否

可以的，這個沒有問題。

參考：

Option Strict On

Imports MySql.Data.MySqlClient

Module Example

Sub Main()

Dim cs As String = “Database=testdb;Data Source=localhost;” _

“User Id=testuser;Password=test623”

Dim conn As New MySqlConnection(cs)

Try

conn.Open()

Console.WriteLine(“MySQL version : {0}”, conn.ServerVersion)

Catch ex As MySqlException

Console.WriteLine(“Error: ” ex.ToString())

Finally

conn.Close()

End Try

End Sub

End Module

如何用vb連接mysql資料庫

VB連接MYSQL數據的方法

博客分類：

VB

VBMySQLSQLServerSQLSocket

第一步：上網下載mysql-connector-odbc-5.1.6-win32.msi

第二步：安裝mysql-connector-odbc-5.1.6-win32.msi

第三步：運行VB並新建一標準EXE工程, 通過菜單工程-引用 打開」引用」對話框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本號, 可能會有很多個, 這裡我選擇的是2.5

第四步：打開代碼窗口, 在 Form_Load 過程中輸入下面的代碼(具體說明在代碼的注釋中):

Vb代碼

‘ 定義並創建資料庫連接和訪問對象

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

‘ 定義資料庫連接字元串變數

Dim strCn As String

‘ 定義資料庫連接參數變數

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

‘ 定義 SQL 語句變數

Dim sql As String

‘ 初始化資料庫連接變數

db_host = “localhost”

db_user = “root”

db_pass = “”

db_data = “erqiuda”

‘ MySQL ODBC 連接參數

‘+————+———————+———————————-+

‘| 參數名 | 默認值 | 說明 |

‘+————+——————————————————–+

‘| user | ODBC (on Windows) | MySQL 用戶名 |

‘| server | localhost | MySQL 伺服器地址 |

‘| database | | 默認連接資料庫 |

‘| option | 0 | 參數用以指定連接的工作方式 |

‘| port | 3306 | 連接埠 |

‘| stmt | | 一段聲明, 可以在連接資料庫後運行 |

‘| password | | MySQL 用戶密碼 |

‘| socket | | (略) |

‘+————+———————+———————————-+

‘ 詳細查看官方說明

‘

strCn = “DRIVER={MySQL ODBC 5.1 Driver};” _

“SERVER=” db_host “;” _

“DATABASE=” db_data “;” _

“UID=” db_user “;PWD=” db_pass “;” _

“OPTION=3;stmt=SET NAMES GB2312”

‘ stmt=SET NAMES GB2312

‘ 這句是設置資料庫編碼方式

‘ 中文操作系統需要設置成 GB2312

‘ 這樣中文才不會有問題

‘ 版本要求 mysql 4.1+

‘ 連接資料庫

cn.Open strCn

‘ 設置該屬性, 使 recordcount 和 absolutepage 屬性可用

cn.CursorLocation = adUseClient

‘ 訪問表users

sql = “select * from users”

rs.Open sql, cn

MsgBox rs.RecordCount

VB 連接MySQL資料庫 報錯 未發現數據源名稱且未指定默認驅動程序 求解～～感謝！！MySQL是8.0版本的

《MySQL 8.0.17》百度網盤資源免費下載:

鏈接:

?pwd=988a 提取碼: 988a

MySQL 8.0.17是一種開放源代碼的關係型資料庫管理系統，使用最常用的資料庫管理語言–結構化查詢語言SQL進行資料庫管理。MySQL 8.0.17優化了SQL查詢演算法，有效地提高查詢速度；支持多線程，充分利用CPU資源，支持多用戶；提供用於管理、檢查、優化資料庫操作的管理工具。由於其體積小、速度快、總體擁有成本低，目前被廣泛地應用在Internet上的中小型網站中。