| 发表于:2007-01-14 17:21:19 楼主 |
'建立连接 dim conn as oledbconnection dim sconn as string sconn = "provider=microsoft.jet.oledb.4.0;datasource=c:\documents and settings\wk\my documents\stuchj.mdb.admin " conn = new oledbconnection(sconn) '建立查询命令 dim schaxun, xianshi, tiaojian as string xianshi = tb.text tiaojian = inputbox( "输入查询条件: ", "查询条件 ", "? ", 300, 300) schaxun = "select " + xianshi + "from stuchj where " + tiaojian dim dtcmd as new oledbdataadapter(schaxun, conn) '建立数据集并填充 dim ds as new dataset dtcmd.fill(ds) datagrid1.datasource = ds.tables(0) conn.close() |
|
|
|
|