如题,谢谢!
解决方案 »
- ADODC读取Excel问题,一些内容读出为null,急!!!!!!!
- 关于软件发布的问题
- InstallShield打包时,为什么不能在安装目录下添加新的文件夹?
- 大虾门急救啊!
- 请教ACCESS数据库中按日期查询的问题。请高手帮忙看一下以下SQL有何不妥?
- 谁知道2001计算机软件资格考试程序员分数线?
- MSFLEXGRID控件中输入的数据该如何保存呢?
- 小有点高难度的问题——(也可能是超级笨的问题)
- 小鸟提问:如何实现文本自动卷动?
- vb制作基础聊天的窗口 一个输入框 一个输出框 如何输出能看到不同字体的效果
- 怎麼在 vss 中保存多個版本??? 然後調出其中的任意一個版本來修改呢???
- webbrowser控件?回答详细有高分,不欢迎混分者
dim str as string
dim db as string
db="..."
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &db
cn.open str
二: 代码法
dim cn as new adodb.connection
dim cmd as new adodb.command
dim rst as new adodb.recordset
cn.connectionstrin="provider=mic……“
cn.open
set cm.activeconnection=cn
cmd.commandtext="select *form tablename"
rst.cursorlocation=aduseclient
rst.open cmd………………
str = "data.mdb"
conn.ConnectionString = "driver={Microsoft access driver (*.mdb)};" & "dbq=" & str
conn.Open
set cn=new adodb.connection
cn.open"Provider=microsoft jet 4.0 oledb ;Persist Security Info=False;User ID=sa;Initial Catalog=rds;Data Source=ftp
"
就OK了