Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
rs.Open strsql, conn
Set DataGrid1.DataSource = rs
End Sub
2007-08-22 01:15
2007-08-22 20:19
2007-08-22 23:43
可以改了
Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
set rs=new adodb.recordser
rs.Open strsql, conn
Set DataGrid1.DataSource = rs
End Sub
可以运行了
2007-08-23 00:19
可以改了，上面还少了一个东东
Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
set rs=new adodb.recordser
rs.Open strsql, conn，adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
可以运行了
2007-08-23 00:21
