Dim myDataset As New DataSet
        Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=vfpoledb.1;Data Source=" & dpath & ";Password=MyPassWord;Collating Sequence=general")
        Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [" & filename & "]", myOleDbConnection)
        Dim myData As OleDbDataAdapter = New OleDbDataAdapter(myOleDbCommand)
        myData.Fill(myDataset)
在这之前要安装VFPOLEDB的驱动

解决方案 »

  1.   

    可以用这样的语句
    create table 新库1
      (名称 char(20),
       数量 char(10),
       )
    insert
          into 新库1
    select * from openrowset('MSDASQL',
    'Driver=Microsoft Visual FoxPro Driver;
    SourceDB=d:\开封市;
    SourceType=DBF',
    'select distname,x1 from xfj12 where bh= "01"')create table 新库2
      (名称 char(20),
       数量 char(10),
       )
    insert
          into 新库2
    select * from openrowset('MSDASQL',
    'Driver=Microsoft Visual FoxPro Driver;
    SourceDB=d:\开封市;
    SourceType=DBF',
    'select distname,x1 from xfj12 where bh= "02"')create table 新库3
      (名称 char(20),
       数量 char(10),
       )
    insert
          into 新库3
    select * from openrowset('MSDASQL',
    'Driver=Microsoft Visual FoxPro Driver;
    SourceDB=d:\开封市;
    SourceType=DBF',
    'select distname,x1 from xfj21 where bh= "01"')create table 新库4
      (名称 char(20),
       数量 char(10),
       )
    insert
          into 新库4
    select * from openrowset('MSDASQL',
    'Driver=Microsoft Visual FoxPro Driver;
    SourceDB=d:\开封市;
    SourceType=DBF',
    'select distname,x1 from xfj32 where bh= "01"')