下面是小弟将数据库数据导成一定格式的TXT文件代码,运行后提醒 ”参数类型不正确或不在可以接受的范围之内“
布置错在哪啊,求助!!!Private Type record_information
ID As String
End Type
Private Type record_blood_pressure_data
USER_ID As String
MAXB As Integer
MINBP As Integer
MEASURE_DATE As String
MEASURE_TIME As String
PULSE As Integer
End Type
Dim record_pressure_data As record_blood_pressure_data
Dim CnnStr As String
Dim record_inf As record_information
Dim adconn As New ADODB.Connection
Private Sub Command3_Click()
Dim strSql As String
Private Sub Command3_Click()
Dim strSql As String
Dim rs As New ADODB.Recordset
Dim net_str As String
Dim h As Integer
Dim str_tou As String
Dim str_wei As String
strSql = "select MEASURE_DATE,MEASURE_TIME,MAXBP,MINBP ,PULSE from BpData where USER_ID = '" & h = Val(InputBox("请输入查询用户编号:", "请输入")) & "' "
Open App.Path & "\zgh_xueya.txt" For Binary As #1
rs.Open strSql, adcoon, 1, 1
While rs.EOF = False 'rs.EOF
record_pressure_data.USER_ID = rs.Fields(1)
record_pressure_data.MAXB = rs.Fields(2)
record_pressure_data.MINBP = rs.Fields(3)
record_pressure_data.PULSE = rs.Fields(4)
record_pressure_data.MEASURE_DATE = rs.Fields(5)
record_pressure_data.MEASURE_TIME = rs.Fields(6)
rs.MoveNext
net_str = record_pressure_data.MEASURE_DATE & vbCrLf & vbCrLf & record_pressure_data.MEASURE_TIME & vbCrLf & vbCrLf & Str$(record_pressure_data.MAXB) & vbCrLf & vbCrLf & Str$(blood_pressure.MINBP) & vbCrLf & vbCrLf_
Str$ (record_pressure_data.PULSE) & vbCrLf & vbCrLf
Put #1, , net_str
Wend
rs.Close
Set rs = Nothing
Close #1End Sub
布置错在哪啊,求助!!!Private Type record_information
ID As String
End Type
Private Type record_blood_pressure_data
USER_ID As String
MAXB As Integer
MINBP As Integer
MEASURE_DATE As String
MEASURE_TIME As String
PULSE As Integer
End Type
Dim record_pressure_data As record_blood_pressure_data
Dim CnnStr As String
Dim record_inf As record_information
Dim adconn As New ADODB.Connection
Private Sub Command3_Click()
Dim strSql As String
Private Sub Command3_Click()
Dim strSql As String
Dim rs As New ADODB.Recordset
Dim net_str As String
Dim h As Integer
Dim str_tou As String
Dim str_wei As String
strSql = "select MEASURE_DATE,MEASURE_TIME,MAXBP,MINBP ,PULSE from BpData where USER_ID = '" & h = Val(InputBox("请输入查询用户编号:", "请输入")) & "' "
Open App.Path & "\zgh_xueya.txt" For Binary As #1
rs.Open strSql, adcoon, 1, 1
While rs.EOF = False 'rs.EOF
record_pressure_data.USER_ID = rs.Fields(1)
record_pressure_data.MAXB = rs.Fields(2)
record_pressure_data.MINBP = rs.Fields(3)
record_pressure_data.PULSE = rs.Fields(4)
record_pressure_data.MEASURE_DATE = rs.Fields(5)
record_pressure_data.MEASURE_TIME = rs.Fields(6)
rs.MoveNext
net_str = record_pressure_data.MEASURE_DATE & vbCrLf & vbCrLf & record_pressure_data.MEASURE_TIME & vbCrLf & vbCrLf & Str$(record_pressure_data.MAXB) & vbCrLf & vbCrLf & Str$(blood_pressure.MINBP) & vbCrLf & vbCrLf_
Str$ (record_pressure_data.PULSE) & vbCrLf & vbCrLf
Put #1, , net_str
Wend
rs.Close
Set rs = Nothing
Close #1End Sub
h = Val(InputBox("请输入查询用户编号:", "请输入"))
strSql = "select MEASURE_DATE,MEASURE_TIME,MAXBP,MINBP ,PULSE from BpData where USER_ID = '" & h & "' "