dim cnn as adodb.connection dim rst as adodb.recordset dim connectstring as string connectstring = "filedsn=d:\mmmmm.dsn;uid=admin;pwd= " set cnn = new adodb.connection cnn.open connectstring
set rst = new adodb.recordset rst.open trim$( "select * from user "), cnn, adopenkeyset, adlockoptimistic set datagrid1.datasource = rst
end sub
发表于:2007-06-27 23:27:491楼 得分:0
rst.open trim$( "select * from user "), cnn, adopenkeyset, adlockoptimistic