关于数据库的显示和更新。你一个示例,这个是用户登录系统
'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录
'点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library
'控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将数据库名及路径换成你的实际数据库名及路径
Dim UserName As String
Dim Password As String
s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("请输入用户名")
Password = InputBox("请输入用户密码")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo请换成你的实际数据表名
在VB6.0中，开发数据库应用程序涉及到对数据库的连接、查询、添加、删除和更新等操作。这里我们将深入探讨如何使用VB6.0与Access数据库进行交互。
我们需要设置数据库连接。在VB6中，可以使用ADODB（ActiveX Data Objects）库来与数据库进行通信。在“工程”菜单中选择“引用”，然后勾选“Microsoft Activex Data Objects 2.1 Library”以引入所需的对象。以下是一个简单的连接示例：
```vb
Dim Conn As New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
```
这里的`Provider`指定数据库引擎，`Data Source`是数据库文件的路径。请确保替换为实际的数据库路径。
接着，我们可以使用Recordset对象来执行SQL查询。例如，用户登录系统中，要查询数据库中是否存在特定用户，可以这样做：
```vb
Dim Rs As New ADODB.Recordset
Dim sql As String
sql = "Select * From [UserInfo] where User='" & UserName & "'"
Rs.Open sql, Conn, 1, 3
```
这段代码会打开一个Recordset，根据`UserName`查询`UserInfo`表中的所有列。`Rs.Open`的参数分别为SQL语句、连接对象、游标类型和锁定类型。
对于数据的添加、删除和更新，可以使用`Conn.Execute`方法执行SQL语句。例如：
- 添加记录：
```vb
Dim sql As String
sql = "Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute sql
```
- 删除记录：
```vb
sql = "Delete From [UserInfo] Where User='aaaa'"
Conn.Execute sql
```
- 更新记录：
```vb
sql = "Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute sql
```
此外，VB6还支持使用DAO（Data Access Objects）库来操作数据库。例如，动态创建数据库和表：
```vb
Dim myDB As DAO.Database
Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral)
' 或者打开已存在的数据库
Set myDB = OpenDatabase(App.Path + "\111.mdb")
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10), Field2 Short)"
myDB.Execute str_SQL
str_SQL = "Create Table NewTable2(Field1 Text(10), Field2 Short)"
myDB.Execute str_SQL
myDB.Close
```
将用户在文本框中输入的数据写入数据库，需要引用`Microsoft ActiveX Data Object 2.5 Library`，然后创建ADODB.Connection和ADODB.Recordset对象，编写插入语句，并使用`Conn.Execute`执行：
```vb
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String
strDk = "DBQ=" & App.Path & "\a.mdb;Driver=;"
cnDk.Open strDk
sql = "insert into b (c) values ('" & Text1.Text & "')"
cnDk.Execute sql
```
通过以上步骤，我们可以利用VB6.0与Access数据库进行交互，实现对数据库的各种操作。在实际应用中，可以结合控件和用户输入，增强程序的灵活性和功能。
