国内最大的酷站演示中心! imports system.data.oledb module module1 sub main() ' 首先设置对 system.data.dll 的引用。 dim objconn as new oledbconnection _ ("provider=microsoft.jet.oledb.4.0;" & _ "user id=admin;" & _ "data source=c:/northwind.mdb") objconn.open() dim objcmd as new oledbcommand _ ("select * from products", objconn) dim objdatareader as oledbdatareader = objcmd.executereader objdatareader.read() console.write(objdatareader.item("productname") & ", " & _ objdatareader.item("unitsinstock")) end sub end module
