sql = "select * from patiant where 病历编号='" & Text1.Text & "'"病历编号是文本吗?
编号是数字啊!怎么了啊?我在MODULE中定义了"Dim 病历编号 As String",应该没有问题吧?
是不是DTPicker"控件的那个时间传递有什么问题啊?
sql = "select * from patiant where 病历编号=" & val(Text1.Text)
Dim rs As New ADODB.Recordset Dim sql As String sql = "select * from lei" rs.Open sql, conn, adOpenKeyset, adLockPessimistic rs.MoveFirst Do While Not rs.EOF 黄色箭头在这里: If Not Isnull Rs.FIelds(0) then Combo3.AddItem rs.Fields(0) If Not Isnull Rs.FIelds(0) then Combo4.AddItem rs.Fields(0) If Not Isnull Rs.FIelds(0) then Combo5.AddItem rs.Fields(0) If Not Isnull Rs.FIelds(0) then Combo6.AddItem rs.Fields(0) rs.MoveNext Loop rs.Close
我觉得用这种 方法访问数据库不太好 可以搞一个模块 mod1 声明一个 public function getConnection() as ADODB.Connection dim con as new ADODB.Connection with con .connectionstring =" " .commandtimeout=15 .connectiontimeout=30 end with getConnection=con end function 在其他地方 dim con as new ADODB.Connection dim rs as new ADODB.Recordset set con=getConnection con.open set rs=con.exset(sql) while not rs.eof do something wend rs.close con.close 比较省资源
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
Combo3.AddItem rs.Fields(0)
Combo4.AddItem rs.Fields(0)
Combo5.AddItem rs.Fields(0)
Combo6.AddItem rs.Fields(0)这应该是 0,1,2,3吧
还有 if rs.fields(0) & "" <> "" then Combo3.AddItem rs.Fields(0) 这样写你的表可能有问题
"rs2.Open sql, conn, adOpenKeyset, adLockPessimistic"这里,我模块里面有个"DTPicker"控件,是不是这个问题呢?我在数据库中这个字段的类型是"时间/日期",为默认的那种,是不是有什么问题啊?请指教!
Dim sql As String
sql = "select * from lei"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.MoveFirst
Do While Not rs.EOF
黄色箭头在这里: If Not Isnull Rs.FIelds(0) then Combo3.AddItem rs.Fields(0)
If Not Isnull Rs.FIelds(0) then Combo4.AddItem rs.Fields(0)
If Not Isnull Rs.FIelds(0) then Combo5.AddItem rs.Fields(0)
If Not Isnull Rs.FIelds(0) then Combo6.AddItem rs.Fields(0)
rs.MoveNext
Loop
rs.Close
可以搞一个模块 mod1 声明一个
public function getConnection() as ADODB.Connection
dim con as new ADODB.Connection
with con
.connectionstring =" "
.commandtimeout=15
.connectiontimeout=30
end with
getConnection=con
end function 在其他地方
dim con as new ADODB.Connection
dim rs as new ADODB.Recordset
set con=getConnection
con.open
set rs=con.exset(sql)
while not rs.eof
do something
wend
rs.close
con.close
比较省资源