VB+ACCESS 提SQL的问题
来源:百度知道 编辑:UC知道 时间:2024/06/27 10:30:28
Private Sub Command1_Click()
Dim ConStr As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\bf.Mdb"
cn.Open ConStr
rs.Open "Select 保费 from 吉利相伴 where 年龄 = 10 & 性别 = '男' & 缴费年限 = 20", cn, adOpenKeyset, adLockPessimistic
Text1.Text = rs.Fields("保费")
End Sub
想把数据库的数据提到text框中
显示标准表达式中数据类型不匹配
Dim ConStr As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\bf.Mdb"
cn.Open ConStr
rs.Open "Select 保费 from 吉利相伴 where 年龄 = 10 & 性别 = '男' & 缴费年限 = 20", cn, adOpenKeyset, adLockPessimistic
Text1.Text = rs.Fields("保费")
End Sub
想把数据库的数据提到text框中
显示标准表达式中数据类型不匹配
加个判断
if rs.eof=-false then
Text1.Text = rs.Fields("保费")
end if
rs.Open "Select 保费 from 吉利相伴 where 年龄 = 10 and 性别 = '男' and 缴费年限 = 20
这样是可以的