How to import Access and Excel to Mysql 3

II. VB program of the import database
This project requires some object libraries. In terms of database access, we decided to use ADO (ActiveX Data Objects). For those who have used ASP, this name should be very familiar. In fact, its application in VB is almost the same. To Operate Excel, an extended object library should also be referenced. Click "project"> "Reference" in the menu and select "Microsoft ActiveX Data Objects 2.6 Library" and "Microsoft Excel 9.0 Object Library". In the reference list, the version of the object library that can be referenced may be different. You can select a similar latest version. To use the Dialog box and progress bar, you also need to reference some parts. In the menu, select "project"> "parts" and select "Microsoft Common Dialog Control 6.0 (SP3) "and" Microsoft Windows Common Controls 6.0 (SP3 )".
　
Interface 1

The following controls are displayed:
1-are TextBox controls named mdbfilename, mdbpassword, xlsfilename, and mdbfilename to indicate the path and file name of the imported Access file, and mdbpassword to enter the password of the Access file, xlsfilename indicates the path and file name of the Excel file to be imported;
4: The name is select_mdbfile and the CommandButton control is used to select the Access file to be imported;
5: The name is importMDB, CommandButton control. After selecting a file, use this button to import the MDB file.
6: CommonDialog1, CommonDialog Control
7: The name is select_xlsfile, CommandButton control, used to select the Excel file to be imported;
8: The name is importXLS, CommandButton control. After selecting a file, use this button to import the XLS file;
9: CommonDialog2, CommonDialog Control
10: The name is prgBar1, And the progress bar (ProgressBar). When you want to import many records, you can use the progress bar to indicate the current import progress.
11: The name is StatusBar1, And the status bar (StatusBar) indicates the import progress, including "importing" and "importing completed.
　
Set Style to "1-sbrSimple"

Make the following statement in the program Header
Option Explicit
Dim Cn As New ADODB. Connection
Dim Cnmysql As New ADODB. Connection
Dim Rs As New ADODB. Recordset
Dim Rsmysql As New ADODB. Recordset

Function replace_str (srcstr As String)
Srcstr = Replace (srcstr ,"","")
Replace_str = Replace (srcstr ,"'","'")
End Function

Double-click form and enter the following code when loading form:
Private Sub Form_Load ()
'Set the progress bar to invisible
PrgBar1.Visible = False
'Connect to the mysql database. pwd is the Database Password, uid is the user name, And dsn is the data source name.
Cnmysql. ConnectionString = "uid = root; pwd =; dsn = build"
Cnmysql. Open
End Sub