怎么获取数据库某一行的值

直接赋值当然不行，因为数据类型不匹配，需要你将每一行的数据转化成字符串才能用Label元素显示。方法：分别获取一行中的每个字段的值，然后将这些数据拼接成字符串，这样就可以用Label显示了

Dim sql As String

sql = "select * from Teacher"

'这句有问题，肯定是修改第一行数据，应该是

sql = "select * from Teacher Order BY id Desc"

Set rs = exesql(sql)

’在这里必须添加下面的语句：

rs.AddNew '新增数据

rs.Fields("管理员姓名") = Trim(Text1.Text)

rs.Fields("工号") = Trim(Text2.Text)

rs.Fields("管理员密码") = Trim(Text19.Text)

rs.Fields("性别") = Trim(Text3.Text)

rs.Fields("联系方式") = Trim(Text4.Text)

rs.Fields("家庭住址") = Trim(Text5.Text)

rs.Update

rs.Close

另外，我认为以下语句没有任何意义，不如删除：

rs.Fields("管理员姓名") = ""

rs.Fields("工号") = ""

rs.Fields("管理员密码") = ""

rs.Fields("性别") = ""

rs.Fields("联系方式") = ""

rs.Fields("家庭住址") = ""

通过命令行 *** 作连接数据源 、打开数据源、数据绑定到控件。 *** 作如下：

1 引用ADOData控件到工程中，并添加到窗体上。

2 设置ADOData控件连接数据库：

数据库连接通常在窗体载入时完成，即在Form_Load()窗体载入事件中 *** 作。

VB6.0+Access数据库-ADOData

Private Sub Form_Load()

'首先连接数据库

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:\VB2实验\学生信息管理系统\学生管理.mdbPersist Security Info=False"

'打开数据表

Adodc1.RecordSource = "学生基本信息表"

‘刷新数据显示

Adodc1.Refresh

‘以下为数据绑定，并显示

Text1.Text = Adodc1.Recordset.Fields(“学号").Value

……

End Sub

VB6.0+Access数据库-ADOData

说明：连接数据库代码中使用了绝对地址，这种方法在地址变化时会产生错误，因此建议改为下面方式：

Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0Data Source= &" App.Path &"\学生管理.mdbPersist Security Info=False"

'打开数据表

Adodc1.RecordSource = "学生基本信息表"

注：App.Path表示为当前地址，即运行工程或程序时的地址。

---