'DoCmd.OpenQuery "sqlchaxun
上面的不变
Dim conn As ADODB.Connection
dim rs as ADODB.Recordset
dim strTemp as string
Set Conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open sqlchaxun,CurrentCon, adOpenDynamic, adLockOptimistic
if not rs.EOF then
strTemp =rs("表中的字段名称") '这里是取查询的字段值(我这里是文本类型,如果你要取的
'字段类型是数字的话,直接定义变量,然后赋值就可以了
end if
如果不行的话,请调试出sqlchaxun内容,检查是否有误
估计就是你的sqlchaxun内容出现问题了
'DoCmd.OpenQuery "sqlchaxun
上面的不变
Dim conn As ADODB.Connection
dim rs as ADODB.Recordset
dim strTemp as string
Set Conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open sqlchaxun,CurrentCon, adOpenDynamic, adLockOptimistic
if not rs.EOF then
strTemp =rs("表中的字段名称") '这里是取查询的字段值(我这里是文本类型,如果你要取的
'字段类型是数字的话,直接定义变量,然后赋值就可以了
end if
如果不行的话,请调试出sqlchaxun内容,检查是否有误
估计就是你的sqlchaxun内容出现问题了
Private Sub chaxun_Click()
Dim cubdb As Database
Dim zdm1 As String
Dim zdm2 As String
Dim zdm3 As String
Dim zdm4 As String
Dim cs1 As String
Dim cs2 As String
Dim cs3 As String
Dim cs4 As String
Dim kssj As Date
Dim jssj As Date
Dim rs1 As Recordset
Dim sqlchaxun As String
Dim qry As QueryDef
Set qry = CurrentDb.QueryDefs("sqlchaxun")
sqlchaxun = ""
sqlchaxun = "select * from sbb"
zidm1.SetFocus
If zidm1.Text <> "" Then
zdm1 = zidm1.Text
chas1.SetFocus
If chas1.Text <> "" Then
cs1 = chas1.Text
sqlchaxun = sqlchaxun + " where " + zdm1 + " = " + cs1
zidm2.SetFocus
If zidm2.Text <> "" Then
zdm2 = zidm2.Text
chas2.SetFocus
If chas2.Text <> "" Then
cs2 = chas2.Text
sqlchaxun = sqlchaxun + "and " + zdm2 + " = " + cs2
zidm3.SetFocus
If zidm3.Text <> "" Then
zdm3 = zidm3.Text
chas3.SetFocus
If chas3.Text <> "" Then
cs3 = chas3.Text
sqlchaxun = sqlchaxun + "and " + zdm3 + " = " + cs3
zidm4.SetFocus
If zidm4.Text <> "" Then
zdm4 = zidm4.Text
chas4.SetFocus
If chas4.Text <> "" Then
cs4 = chas4.Text
sqlchaxun = sqlchaxun + "and " + zdm3 + " = " + cs3
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
kaissj.SetFocus
If kaissj.Text <> "" Then
kssj = kaissj.Text
jiessj.SetFocus
If jiessj.Text <> "" Then
jssj = jiessj.Text
chas1.SetFocus
If chas1.Text <> "" Then
sqlchaxun = sqlchaxun + "and 购买时间 between " + CStr(kssj) + " and " + CStr(jssj)
Else
sqlchaxun = sqlchaxun + " where 购买时间 between " + CStr(kssj) + " and " + CStr(jssj)
End If
End If
End If
MsgBox sqlchaxun
qry.sql = sqlchaxun
End Sub
Dim cubdb As Database
Dim zdm1 As String
Dim zdm2 As String
Dim zdm3 As String
Dim zdm4 As String
Dim cs1 As String
Dim cs2 As String
Dim cs3 As String
Dim cs4 As String
Dim sqlchaxun As String
Set cubdb = CurrentDb
Dim rs1 As Recordset
'Set rs = YourObject
sqlchaxun = ""
sqlchaxun = "select * from sbb"
zidm1.SetFocus
If zidm1.Text <> "" Then
zdm1 = zidm1.Text
chas1.SetFocus
If chas1.Text <> "" Then
cs1 = chas1.Text
sqlchaxun = sqlchaxun + " where " + zdm1 + " = " + cs1
zidm2.SetFocus
If zidm2.Text <> "" Then
zdm2 = zidm2.Text
chas2.SetFocus
If chas2.Text <> "" Then
cs2 = chas2.Text
sqlchaxun = sqlchaxun + "and" + zdm2 + " = " + cs2
zidm3.SetFocus
If zidm3.Text <> "" Then
zdm3 = zidm3.Text
chas3.SetFocus
If chas3.Text <> "" Then
cs3 = chas3.Text
sqlchaxun = sqlchaxun + "and" + zdm3 + " = " + cs3
zidm4.SetFocus
If zidm4.Text <> "" Then
zdm4 = zidm4.Text
chas4.SetFocus
If chas4.Text <> "" Then
cs4 = chas4.Text
sqlchaxun = sqlchaxun + "and" + zdm3 + " = " + cs3
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
Else
MsgBox "请输入条件。", vbOKOnly, "设备管理系统"
Exit Sub
End If
End If
'zdm1 = zidm1.Text
MsgBox sqlchaxun
'DoCmd.OpenQuery "sqlchaxun"