Dim conn As New Connection conn1.Open "DSN=data;uid=sa;pwd=;" Dim rst As New ADODB.Recordset Dim Cmd As New ADODB.Command Set Cmd.ActiveConnection = conn Cmd1.CommandType = adCmdText Cmd1.CommandText="select * from 表名" rst.Open conn,cmd1.CommandText,adOpenKeyset ,adLockPessimistic set MSFLEXGRID.datasource=rst
conn1.Open "DSN=data;uid=sa;pwd=;" Dim rst As New ADODB.Recordset
Dim Cmd As New ADODB.Command Set Cmd.ActiveConnection = conn Cmd1.CommandType = adCmdText Cmd1.CommandText="select * from 表名"
rst.Open conn,cmd1.CommandText,adOpenKeyset ,adLockPessimistic
set MSFLEXGRID.datasource=rst