vb如何连接 *** 作MYSQL数据库啊

必须安装mysql的驱动才行，不管是vb还是c++都需要这个驱动。

代码如下：

public

function

exemysql(byval

sql

as

string)

as

adodbrecordset

sql

=

trim$(sql)

set

conn

=

new

adodbconnection

set

rs

=

new

adodbrecordset

connopen

"driver=mysql

odbc

351

driver;"

&

_

"server=服务器地址;"

&

_

"port=3306;"

&

_

"database=数据库名;"

&

_

"uid=用户名;"

&

_

"pwd=密码"

conndefaultdatabase

=

"数据库名"

conncursorlocation

=

aduseclient

set

rsactiveconnection

=

conn

rslocktype

=

adlockbatchoptimistic

rscursortype

=

adopenkeyset

rsopen

sql

set

exesql

=

rs

set

rs

=

nothing

set

conn

=

nothing

end

function

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

VB连接MYSQL数据的方法

博客分类：

VB

VBMySQLSQLServerSQLSocket

第一步：上网>

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

Dim strAppPath As String

strAppPath = AppPath

If Right(strAppPath, 1) <> "\" Then

strAppPath = strAppPath & "\"

End If

strAppPath = strAppPath & "BigTextmdb"

ConnectString = "DRIVER=Microsoft Access Driver (mdb);DBQ=" & strAppPath & ""

Set cnn = New ADODBConnection

cnnOpen ConnectString

'-----------------sqlDim cnn As ADODBConnection

Dim rs As ADODBRecordset

Dim str As StringcnnCursorLocation = adUseClient

str = "Provider=SQLOLEDB1;Persist Security Info =False;" _

& "User ID=sa;" _ '数据库的登录名

& "Pwd=123456;" _ '数据库的密码

& "Initial Catalog=db1;" _

& "Data Source=whx" '连接数据库的名字cnnOpen str

是否可以解决您的问题？

Microsoft ADO Data Control 60和Microsoft DataGrid Control 60ADODC控件属性设置：1、在ADODC控件上右击，选择ADODC属性2、然后在通用选项卡中选择使用连接字符串，点击生成按钮3、然后选择Microsoft Jet 40 OLE DB Provider，点击下一步4、选择要连接打开的Access数据库文件(你要打开的ACCESS文件)，点击测试连接，提示成功即可5、切换到记录源选项卡，命令类型选择2-adCmdTable，表或存储过程名称选择要打开的表，点击确定。经过以上的步骤设置，ADODC控件虽然具有了“打开”数据库的能力，但它没有“显示”数据的能力，此时我们就要借助DataGrid控件了。DataGrid控件属性设置：设置DataGrid控件的DataSource属性为Adodc1通过以上语句的设置，就将DataGrid控件和Adodc控件绑定在一起了，这样DataGrid才能正常显示Adodc打开数据表的内容。

用SQL数据库吧！！这个 *** 作起来要简单一些，利用ADO 你可以很轻松的就完成自己想要的东西！@

数据库连接代码如下

Option Explicit

'API 函数部分

'数据库部分

'Public rs As New ADODBRecordset '数据专用

Public Cnn As ADODBConnection '一个ADO连接字符串

Public UserFlag As Long '确定 *** 作员的权限，普通用户、超级用户、财务用户 窗体4

Public UserID As String '确定当前 *** 作员名称 窗体4

Public SelStr As String '查询选择字段标志 取 工单号 字段 窗体1

Public SELName As String '查询选择字段标志 取 委印单位 字段 窗体6、7

Public PrtSc As Integer '确定打印以纵向或是横向 窗体9

Public HZ_SELStr As String '确定承印机台 窗体9、10

Public LBFlag, PSFlag, PRTFlag As Long '汇总类别标志

Public MinDate, MaxDate As String '定义查询与汇总时段 时间段的最小最大取值

Public MXLXFlag As Long '明细类型 类型为1以承印机台显示明细 为2以纸度、纸张克数、纸类名称显示明细

Public ZDLX, ZZKZ, ZLMC As String '确定承印机台 窗体9、10

Public Sub DateConnection() '连接一个数据库的过程

Dim sql As String

'sql = "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;PWD=sa;Initial Catalog=work_DB;Data Source=sun"

'sql = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB;"

'sql = "driver={SQL Server};server=SUNSERVER;uid=sa;pwd=sa;database=work_DB" '本地访问

sql = "driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB" '局域网内访问

Set Cnn = New Connection

CnnConnectionTimeout = 30

CnnCursorLocation = adUseClient '当为客户端模式时，Mode 只能是未知

CnnOpen sql

End Sub

Public Sub Main()

Call DateConnection '调用数据库连接过程 连接数据库文件

MDIForm1Show

End Sub

以上就是关于vb如何连接 *** 作MYSQL数据库啊全部的内容，包括:vb如何连接 *** 作MYSQL数据库啊、vb怎么连接sql、如何用vb连接mysql数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！