在使用commondialog控件获得文件路径后,存入了text1.text中
请问,那在'Microsoft.Jet.OLEDB.4.0','Data Source=_______的这里再用什么来引用获得的路径,谢谢了^-^Private Sub Command1_Click()
CommonDialog1.ShowOpen
CommonDialog1.ShowSave
text1.Text = CommonDialog1.FileName
End Sub

解决方案 »

  1.   

    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & text1.Text 
    试试看!
      

  2.   

    按照你的方法,我试了下,弹出了一个实时错误
    :OLE DB 错误跟踪[ole/db provider 'microsoft.jet.oledb.4.0' IDBInitialize::Initialize
    returned 0x80004005:提供程序未给出有关错误的任何信息]。代码如下:
    Adocon.Execute ("insert into CGDD(CODE,Reference,UnitPrice,SetsOrdered,Description,QtyPerSet,TotalPrice) SELECT CODE,Reference,UnitPrice,SetsOrdered,Description,QtyPerSet,TotalPrice FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=&Text1.Text;Extended properties=Excel 8.0')...sheet2$")