|
Dim Strtemp As String
'*************************************************************
'从数据源取数据
dim dest(1 to 10,1 to 100) as variant '第一个参数是每条记录的字段数目,第二个参数是记录数目
dim retcode as variant '句柄,存放实际取得记录数目
dim query as string '查询语句
dim outputstr as string
dim connectionstr as string
connectionstr = "dsn=SourceData;uid=;pwd=;" 'dns 连接设置
query = "select * from Customer" '此处修改SQL语句
retcode = sqlrequest(connectionstr,query,outputstr,,0,dest())
'取出数据存放在dest()
'*************************************************************
Strtemp = dest(4,1) '取第一条纪录的第四个字段
至于sql怎么设计,都是你该思考的问题 |
|