编程新人求助：现下dataset里面存了一个100多列的表，想要将这个表存进access数据库中，想了一天试了一天。无奈了，来找大神帮忙。求助啊。。。。
Dim dt As DataTable = New DataTable()
Dim ConStr As String = g_SQLDataSource
Dim SqlText As String = "select * from basictable"
Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConStr)
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(SqlText, conn)
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm)
Dim myDataset As DataSet = New DataSet()
da.Fill(myDataset)
myDataset.Tables(0).Columns.Add("结果")
Dim i, j As New Integer
i = myDataset.Tables(0).Rows.Count - 1
j = 0
For i = 0 To i
Try
Dim insertstr As String = "insert into basictable values ('" + myDataset.Tables(0).Rows(i).Item(0).ToString + "','" + myDataset.Tables(0).Rows(i).Item(1).ToString + "')"
Dim cmd As OleDbCommand = New OleDbCommand(insertstr, conn2)
cmd.ExecuteNonQuery()
myDataset.Tables(0).Rows(i).Item("结果") = "OK"
j = j + 1
Catch ex As Exception
myDataset.Tables(0).Rows(i).Item("结果") = ex.Message.ToString
'MsgBox(ex.Message.ToString)
End Try
Next
MsgBox("成功导入" & j & "条记录")
conn.Close()
private static bool csvToSql(string fileName)
{
string StrConn = "server=.;database='" + DataBaseName + "';uid='" + userName + "';pwd='" + Password + "'";
SqlConnection connection = new SqlConnection(StrConn);
try
{
connection.Open();
string cmdtxt = @"bulk insert " + TableName + " from '" + FilePath + fileName + "' with(FIRE_TRIGGERS,FIELDTERMINATOR=',')";
SqlCommand cmd = new SqlCommand(cmdtxt, connection);
cmd.ExecuteNonQuery();
return true;
}
catch (System.Exception ex)
{
// log.WriteLine("文件：{0} error：{1}", fileName, ex.Message);
// log.Flush();
return false;
}
}
