dim rst as new adodb.recordset dim cnn as new adodb.connection cnn.open "provider=msdasql.1;.................." rst.open "select 字段1,字段2 from tablename",cnn,adopendynamic,adlockpessimistic if rst.eof=false then rst.movefirst text1.text=rst.fields(0).value text2.text=rst.fields(1).value end if刪除: rst.delete rst.movefirst '刪除后回到第一筆
dim cnn as new adodb.connection
cnn.open "provider=msdasql.1;.................."
rst.open "select 字段1,字段2 from tablename",cnn,adopendynamic,adlockpessimistic
if rst.eof=false then
rst.movefirst
text1.text=rst.fields(0).value
text2.text=rst.fields(1).value
end if刪除:
rst.delete
rst.movefirst '刪除后回到第一筆