大家好, i希望在点击按钮时使用插入openrowset将我的msaccess表导出到桌面 im在INSERT INTO语句中获取错误 请有人帮帮我。 这是我的代码:
公共 类 XtraForm3 私有 Sub SimpleButton1_Click(发件人 As System。 Object ,e As System.EventArgs)句柄 SimpleButton1.Click Dim folderbrowserdialog1 As 新 FolderBrowserDialog ' folderbrowserdialog1.ShowD ialog() ' 如果folderbrowserdialog1.ShowDialog()= DialogResult.OK那么 ' MessageBox.Show(folderbrowserdialog1.SelectedPath) End If If (folderbrowserdialog1.ShowDialog ()= DialogResult.OK)然后 TextEdit1.Text = folderbrowserdialog1.SelectedPath 结束 如果 InsertData() 结束 Sub 私有 Sub InsertData() Dim queryString As 字符串 = INSERT INTO OPENROWSET('Provider = Microsoft.Jet.OLEDB.4.0;数据源= C:\ DMT \mdb \ Edata2.mdb;','SELECT * FROM ArtBez') Dim conn 作为 新 System.Data。 OleDb.OleDbConnection( Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\ DMT \\ \\ mdb\Edata2.mdb) Dim cmd As 新 System.Data.OleDb.OleDbCommand(queryString,conn) conn.Open() cmd.CommandType = CommandType.Text Dim adapter As 新系统.Data.OleDb.OleDbDa taAdapter(cmd) cmd.ExecuteNonQuery() conn.Close() 结束 Sub 结束 Class解决方案
请先阅读我对这个问题的评论! 如果要复制ms从一个位置访问数据库文件,请使用 File.Copy() [ ^ ]方法。 如果要在现有数据库之间复制数据,则需要连接到目标数据库(例如: C:\ DMT \mdb \Edata2.mdb )并使用类似的sql命令: INSERT INTO DestinationTableName(Field1,Field2,Field3,...,FieldN) SELECT Field1,Field2,Field3,... ,FieldN FROM SourceTableName IN ' C:\ DMT \mdb \Edata1.mdb'
注意:在必须存在目标数据库目标表! 有关详细信息,请参阅: IN子句 - MS Access [ ^ ] 使用IN子句访问外部数据 [ ^ ] 但是如果你想将数据复制到新的(空)数据库中,你需要:
更多: 提示Access 2007中的查询和技术 [ ^ ]
Hi all, i want to export my msaccess tables to desktop on click of the button using "insert into openrowset" i m getting error in "INSERT INTO" statement please someone help me with this. Here is my code:
Public Class XtraForm3 Private Sub SimpleButton1_Click(sender As System.Object, e As System.EventArgs) Handles SimpleButton1.Click Dim folderbrowserdialog1 As New FolderBrowserDialog 'folderbrowserdialog1.ShowDialog() 'If folderbrowserdialog1.ShowDialog() = DialogResult.OK Then ' MessageBox.Show(folderbrowserdialog1.SelectedPath) 'End If If (folderbrowserdialog1.ShowDialog() = DialogResult.OK) Then TextEdit1.Text = folderbrowserdialog1.SelectedPath End If InsertData() End Sub Private Sub InsertData() Dim queryString As String = "INSERT INTO OPENROWSET ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DMT\mdb\Edata2.mdb;', 'SELECT * FROM ArtBez')" Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DMT\mdb\Edata2.mdb") Dim cmd As New System.Data.OleDb.OleDbCommand(queryString, conn) conn.Open() cmd.CommandType = CommandType.Text Dim adapter As New System.Data.OleDb.OleDbDataAdapter(cmd) cmd.ExecuteNonQuery() conn.Close() End Sub End Class 解决方案 Please, read my comment to the question first! If you want to copy ms access database file from one location into another, please use File.Copy()[^] method. If you would like to copy data between existing databases, you need to connect to destination database (for example: C:\DMT\mdb\Edata2.mdb) and use sql command like that: INSERT INTO DestinationTableName (Field1, Field2, Field3,..., FieldN) SELECT Field1, Field2, Field3,..., FieldN FROM SourceTableName IN 'C:\DMT\mdb\Edata1.mdb'Note: In a destination database destination table must exists! For further information, please see: IN Clause - MS Access[^] Accessing external data using the IN clause[^] But if you would like to copy data into new (empty) database, you need to:
More: Tips and Techniques for Queries in Access 2007[^]
更多推荐
将表从msaccess导出到桌面
发布评论