vb6数据库代码（vb6 数据库）

今天给各位分享vb6数据库代码的知识，其中也会对vb6 数据库进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB6.0 如何连接SQL 数据库
• 2、vb连接SQL数据库，要代码
• 3、求VB6.0代码，1、查询access数据库的代码、2写入access数据库的代码（如果数据库有相同项则不写入）
• 4、vb6.0 连接局域网内数据库的代码怎么写？请大神指导
• 5、VB6.0 代码解释
• 6、vb6.0筛选access 数据库 求代码

VB6.0 如何连接SQL 数据库

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79; 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连接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

求VB6.0代码，1、查询access数据库的代码、2写入access数据库的代码（如果数据库有相同项则不写入）

1. 在菜单中找到[工程],---在[工程]找找到[部件]----在[部件]中找到Microsoft ADO Data Control 6.0,前面勾上,----应用,这就引用了ADO控件.

2. 把工程另存为到一个文件夹

3. 在电脑上找到你刚才存的文件夹,在里面新建一个ACCESS文件,假设名称取为ACCESS文件.mdb,在ACCESS中创建表,创建字段,假设表为:(用户表)

姓名 | 用户名 | 密码

--------------------------------------------------

张三 | A5200 | 02225

_______________________________

* | * | *

4. 在窗体上拉三个Text,一个Command按钮,改下名称,Text分别是姓名,用户名,密码Command为添加, 再拖一个ADO控件到窗体上,把他的Visible属性设置为False,也就是说不显示他,放窗体上太丑了

5. 双击按钮写代码:

Private Sub 添加_Click()

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "ACCESS文件.mdb"

Adodc1.RecordSource="Select * from 用户表 Where 用户名='"+用户名+"'"

Adodc1.Refresh

If Not Adodc1.RecordSet.EOF Then

if Adodc1.RecordSet.RecordCount0 Then

Adodc1.RecordSet.AddNew

Adodc1.RecordSet.Fields("姓名")=me.姓名

Adodc1.RecordSet.Fields("用户名")=me.用户名

Adodc1.RecordSet.Fields("密码")=ME.密码

Adodc1.RecordSet.Update

Adodc1.RecordSet.MoveNext

姓名=""

用户名=""

密码=""

Else

MsgBox: "该用户已经注册!请重新申请帐户!....",vbOkOnly,"提示"

姓名=""

用户名=""

密码=""

End If

Else

MsgBox("连接数据库失败..........")

End iF

End Sub

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.0 代码解释

objrst1代表数据库的连接

remark1代表一个字段

这个字段的内容为空则isnull为true

在变量上单击右键，点击定义，就可以看到定义的位置了

vb6.0筛选access 数据库 求代码

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.Open "provider=microsoft.jet.oledb.4.0;data source=cx_task.mdb"

DataGrid1.AllowUpdate = True

Adodc1.ConnectionString = conn

Adodc1.RecordSource = "select * from t_task where t_name='" Label4.Caption "'"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

conn.Close

这是我用的，你比着改一下就好了，在连接时还要加一个ADODC控件，可以设置为隐藏。

注意：sql语句中若有汉字别忘加引号！

不懂了再问我吧！

关于vb6数据库代码和vb6 数据库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。