最好写几句话示范一下,谢谢
解决方案 »
- 全局的字符串型常量运行的时候占用存储空间吗?
- 请教向数据库中加入记录问题
- ◆求一个通过热键实现窗体显示、隐藏效果的简单程序?◆
- 请教:如何编程列出本机当前的网络连接
- 我用这个函数Space$(nSize),提示说工程库没有,需要什么工程库?
- Grid总行数问题?(急)
- 用VB怎样读.dat文件?
- keybd_event模拟热间组合
- 如何用API将应用程序缩小至任务栏?请提供源代码。(100)分
- 我想在程序中取outlook地址簿,选中人名,发份email,是不是用mapi?怎么用?
- 在開發DLL時怎么設置類的某個屬性只能輸入"CN"或"TW"
- 怎样用vb(在本地)对远程的access数据库(在服务器上的)进行操作????? 急!!!!
dim rs as adodb.recordset
dim strCon as string
dim strSQL as stringset con = new adodb.connection
set rs = new adodb.recordsetstrSQL ="select * from tableName;"strCon ="provider=microsoft.jet.oledb.4.0;" & _
"datasource=数据库路径;" & _
"jet oledb:database passwore=数据库密码"con.open strCon
rs.open strSQL,con,adopenstatic
'把查询结果显示在MSHFlexGrid1控件里
set MSHFlexGrid1.datasource = rs
rs.close
con.close
set rs = nothing
set con = nothing'使用这段代码得先引用ADO.
dim cnn as new adodb.connection
dim str as string
str="select ..."
rec.open str,cnn
cnn.execute str