是这样吗? ..... set rs=Cmd.Executeset datagrid.DataSource = Rs这样是不行的,datagrid不支持
Dim cn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()If rs.State = 1 Then rs.Close rs.CursorLocation = adUseClient 'rs.Open "exec show_restemployeenum", cn, adOpenDynamic, adLockOptimistic Set rs = cn.Execute("show_restemployeenum")Set DataGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=xxxt;Data Source=192.168.120.1" cn.CursorLocation = adUseClient cn.OpenEnd Sub没有问题
.....
set rs=Cmd.Executeset datagrid.DataSource = Rs这样是不行的,datagrid不支持
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
'rs.Open "exec show_restemployeenum", cn, adOpenDynamic, adLockOptimistic
Set rs = cn.Execute("show_restemployeenum")Set DataGrid1.DataSource = rsEnd SubPrivate Sub Form_Load()cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=xxxt;Data Source=192.168.120.1"
cn.CursorLocation = adUseClient
cn.OpenEnd Sub没有问题