[求助]那位能够帮我看看这段程序错在那里？

Question

     那位能够帮我看看这段程序错在那里？
     调试的时候说是磁盘或网络错误！一直没有搞明白！
     Dim RecordCount As Integer
     Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0  ;Data source = & *.dat"
     Adodc1.RecordSource = "select * from " & Txtfile.Text
     Adodc1.Refresh

Answer 1

你是连接什么后台数据库？sql server, oracle, foxpro?

Answer 2

Data source = & *.dat ?Jet 引擎不支持这样的内部或外部数据库扩展名。何况，如果是外部数据库，应该指明数据库类型。

Answer 3

那能不能够用excel的形式！
     Dim RecordCount As Integer
     Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0  ;Data source = & *.xls"
     Adodc1.RecordSource = "select * from " & Txtfile.Text
     Adodc1.Refresh

Answer 4

你要连接什么数据库类型的,就要用什么数据库引擎,
你可以点击ADODC控件的属性,里面可以自动生成连接字符串!

Answer 5

Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0  ;Data source = & *.dat" ?
不行的，一定要指定具体的文件名。