Private MdbStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=i:\IP.MDB" 数据库文件
Dim strSql ="Select * from MyTable001" 'MyTable001表格名称
Dim adp As New OleDbDataAdapter(strSql,MdbStr) '定义一个适配器连接至数据库
注意:DataAdapter.TableMappings.Add方法的第一个参数只能为“Table”、“Table1”、“Table2”……,而且区分大小写。DataAdapter内部表格即:Table,Table1,Table2,...以此类推,连接至数据库Select * from 表格时,会自动生成映射关系,即Table映射新名称<=>”用户自定义表名称",第一个参数为sourceTable源,第二个参数为dataSetTable。
adp.TableMapping.Add(“Table”,”网站收藏夹”).ColumnMappings '映射新表为中文名称
.Add(“Num”,”序号”) '将列名改为中文列名
.Add(“IP,”,”IP地址”)
.Add(“URL”,”网址”)
End With
Dim dataSet As New DataSet
adp.Fill(dataSet)
Console.WriteLine("网址:" & dataSet.Tables("网站收藏夹").Rows(0)("网址").ToString)
REM "这里若使用Table会报异常,表格名称经过映射,已经更新表格名称,不存在Table表对象
Console.WriteLine结果等同于:
Dim adp As New OleDbDataAdapter(strSql,MdbStr)
'不使用映射,则表格名称默认为Table
Dim dataSet As New DataSet
adp.Fill(dataSet)'不使用映射,直接填充表格
Console.WriteLine("网址:"& dataSet.Tables("Table").Rows(0)("URL").ToString) '表格默认名称为Table