高校问答激光治疗系统:VB中过程间调用RS或DATAGRID记录
来源：百度文库 编辑：高校问答 时间：2024/04/29 01:44:44
Private Sub cmdquery_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=;initial catalog=JW;data source=microsof-0B5555"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and '" & DateAdd(Day, -1, registtime) & "'<'" & dtpto.Value & "'", conn, 1, 1
Set DataGrid1.DataSource = rs
Set conn = Nothing
Set rs = Nothing
End Sub
本人想在另一过程中将查询结果转为excel电子表格,rs和conn应如何定义?或datagrid1.datasource可以在另一过程被调用吗?(不需转excel电子表格过程)
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=;initial catalog=JW;data source=microsof-0B5555"
conn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and '" & DateAdd(Day, -1, registtime) & "'<'" & dtpto.Value & "'", conn, 1, 1
Set DataGrid1.DataSource = rs
Set conn = Nothing
Set rs = Nothing
End Sub
本人想在另一过程中将查询结果转为excel电子表格,rs和conn应如何定义?或datagrid1.datasource可以在另一过程被调用吗?(不需转excel电子表格过程)