vb6连接数据库代码（vb6连接mysql数据库）

本篇文章给大家谈谈vb6连接数据库代码，以及vb6连接mysql数据库对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、vb6.0如何连接MYSQL数据库？
• 2、vb6.0连接sql2000数据库的具体步骤
• 3、vb连接access数据库代码详细解释
• 4、vb连接SQL数据库，要代码
• 5、求VB登陆窗口连接ACCESS数据库的代码
• 6、vb6.0 连接局域网内数据库的代码怎么写？请大神指导

vb6.0如何连接MYSQL数据库？

最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。

vb6.0连接sql2000数据库的具体步骤

VB6.0使用ADO对象连接数据库：

有偿征集原创文章，为您创收 投递文章 减小字体 增大字体

1． 定义连接对象Global DBconnect As New ADODB.Connection2． 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l 连接ODBC DBconnect.ConnectionString = "dsn

1． 定义连接对象

Global DBconnect As New ADODB.Connection

2． 执行连接语句

If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close

 连接ODBC

DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"

 直接连接Access为

Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51

DBconnect.ConnectionString = "FilePathFileName.mdb"

 连接Oracle

DBconnect.Provider = "MSADORA"

DBconnect.ConnectionString = "user/mypass@servicename

 连接SQL Server

DBconnect.Provider = "SQLOLEDB.1"

DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"

或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"

DBConnect.Open

3． 取查询结果集

Global RS As New ADODB.Recordset

Global PS As New ADODB.Recordset

If RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close

RS.Open SQLStr, DBconnect, adOpenKeyset

4． 执行SQL语句

DBconn.Execute SQLStr

5． 关闭数据库

DBconnect.Close

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

第一种方法采用的是无源的数据库连接方法

conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名,密码 from login where 用户名='" Trim(Combo1.Text) "' And 密码='" Trim(Text1.Text) "'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF = True And rs.BOF Then

m = MsgBox("请重新登录", vbExclamation)

Text1.Text = ""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t = 0 To Val(rs.RecordCount) - 1

i = Trim(rs.Fields("用户名").Value)

rs.MoveNext

Combo1.AddItem i

Next t

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

vb连接access数据库代码详细解释

用MICROSOFT jet 4.0 OLE DB Provider引擎连接ACCESS数据库,方法如下:

新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

SQL查询语言主要结构为：

Select 查询字段 from 表名 Where 查询条件语句 [排序语句或分组语句]

查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。

vb连接SQL数据库，要代码

给你一个示例代码吧

Private Sub cmdOK_Click()

Static nErr As Integer

Dim bErr As Boolean

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim strSql As String

If txtUser.Text = "" Or txtPwd.Text = "" Then

MsgBox "用户或密码不能为空!", vbCritical, "错误"

bErr = True

Else

Set conn = OpenConnForSqlServer("127.0.0.1\SQLEXPRESS", "xsfh", "")

strSql = "select * from users where name = '" txtUser.Text "' and password='" txtPwd.Text "'"

Set rs = OpenRecordset(strSql, conn)

If rs.EOF Then

MsgBox "错误的用户名或密码!", vbCritical, "错误"

bErr = True

Else

Unload Me

frmMain.Show

End If

End If

If bErr Then

nErr = nErr + 1

If nErr = 3 Then

Unload Me

Else

txtUser.Text = ""

txtPwd.Text = ""

txtUser.SetFocus

End If

End If

End Sub

Public Function OpenConnForSqlServer(ByVal ServerName As String, ByVal UserId As String, ByVal PassWord As String, Optional ByVal DateBaseName As String = "") As ADODB.Connection

Dim AdoConn As New ADODB.Connection

Dim strConn As String

With AdoConn

strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" UserId ";Password=" PassWord ";Data Source=" ServerName

If DateBaseName "" Then strConn = strConn ";database=" DateBaseName

.ConnectionString = strConn

.Open

End With

Set OpenConnForSqlServer = AdoConn

End Function

Public Function OpenConnForSqlServerByWin(ByVal ServerName As String, Optional ByVal DateBaseName As String = "") As ADODB.Connection

Dim AdoConn As New ADODB.Connection

Dim strConn As String

With AdoConn

strSql = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" ServerName

If DateBaseName "" Then strConn = strConn ";Initial Catalog=" DateBaseName

.ConnectionString = strConn

.Open

End With

Set OpenConnForSqlServerByWin = AdoConn

End Function

Public Function OpenRecordset(ByVal strSql As String, ByVal AdoConn As ADODB.Connection) As ADODB.Recordset

Dim rs As New ADODB.Recordset

With rs

.CursorLocation = adUseClient

.CursorType = adOpenDynamic

.Open strSql, AdoConn, , , adCmdText

End With

Set OpenRecordset = rs

End Function

Public Function RunTrans(ByVal tranSql As String, ByVal AdoConn As ADODB.Connection)

With AdoConn

.BeginTrans

.Execute tranSql

.CommitTrans

End With

End Function

求VB登陆窗口连接ACCESS数据库的代码

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;""DataSource="App.PathobjCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open“DSN=实例2DSN”

3、ADOData控件创建连接

扩展资料

ACCESS数据库特性

1、access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

2、access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学，非计算机专业的人员，也能学会。

3、在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformationServices运行．比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/MicrosoftSQLServer。

vb6.0 连接局域网内数据库的代码怎么写？请大神指导

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" "Z:\专用管理\data\data.mdb;Jet OLEDB:Database Password=cjw123456;Persist Security Info=False;"

打开网上邻居以后，映射一下网络驱动器

vb6连接数据库代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb6连接mysql数据库、vb6连接数据库代码的信息别忘了在本站进行查找喔。