UC知道VB插入access记录
来源：百度知道 编辑：UC知道 时间：2024/05/25 11:49:36
本来程序已经完成了,但想增加一些功能,调试的时候启动顺序改成form7了,出现一个现象,上面求高手啊!
我已经在模块里面声明public xx as new adodb.connection
然后在窗口里面写:
dim connectionstring as string
connectionstring="provier=microsoft.jet.oled.4.0;"&_"data source=aa.mdb"
xx.open connectionstring
也同时在工程里面引用了Microsoft activex data objects 2.5 library
但单独运行form7的时候就会出现{Microsoft][odbc驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
问题是:我程序其它地方也会用数据库啊,没有问题,只是今天新增了一个窗口并设为启动窗口就弹出以上提示.
高手请指点迷津啊..真想不出来了.
我已经在模块里面声明public xx as new adodb.connection
然后在窗口里面写:
dim connectionstring as string
connectionstring="provier=microsoft.jet.oled.4.0;"&_"data source=aa.mdb"
xx.open connectionstring
也同时在工程里面引用了Microsoft activex data objects 2.5 library
但单独运行form7的时候就会出现{Microsoft][odbc驱动程序管理器]未发现数据源名称并且未指定默认驱动程序
问题是:我程序其它地方也会用数据库啊,没有问题,只是今天新增了一个窗口并设为启动窗口就弹出以上提示.
高手请指点迷津啊..真想不出来了.
你的问题我不太清楚...
要是有模块连接数据库的话,必须要从sub main起动
connectionstring="provier=microsoft.jet.oled.4.0;"&_"data source=aa.mdb"
xx.open connectionstring
你的数据表名称是否正确。connectionstring是否定义
数据表是否是相对路径，“最好不要用决对路径”
Public con As New Connection '定义数据连接，公共变量
Public coon, coom As String
Sub Main()
ChDir App.Path '转换相对路径
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cq.mdb;Persist Security Info=False"
'定义数据库连接
con.CursorLocation = adUseClient '以客户端的方式打开
con.Open ' 打开连接
登陆.Show
End Sub
我的是这样的。给你参考下..希望你能找到原因