ホームページ >バックエンド開発 >PHPチュートリアル >Access と Excel を Mysql にインポートする方法 パート 3_PHP チュートリアル
二。ライブラリをインポートするための VB プログラム
このプロジェクトでは、データベース アクセスに関して、ADO (ActiveX Data Objects) を使用することにしました。実際、この名前はよく知られているはずです。 VBの場合 アプリケーションはほぼ同じです Excelを操作する必要があるため、拡張オブジェクトライブラリを参照する必要があります。メニューの「プロジェクト」---「参照」をクリックし、参照リストで「Microsoft ActiveX Data Objects 2.6 Library」と「Microsoft Excel 9.0 Object Library」を選択します。参照されるオブジェクト ライブラリのバージョンが異なる場合があります。同様の最新バージョンで十分です。ダイアログ ボックスとプログレス バーを使用するには、メニューの「プロジェクト」-「コンポーネント」をクリックし、「Microsoft Common Dialog Control 6.0 (SP3)」および「Microsoft Windows Common Controls 6.0 (SP3)」を選択する必要があります。 。
インターフェイスを図 1 に示します
図内の番号で表されるコントロールは次のとおりです:
1 ~ 3: 3 は TextBox コントロールで、名前は mdbfilename、mdbpassword、xlsfilename、mdbfilename であり、インポートを示すために使用されます。 Access ファイルのパスとファイル名。mdbpassword は Access ファイルのパスワードを入力するために使用され、xlsfilename はインポートされた Excel ファイルのパスとファイル名を示すために使用されます。
4: 名前は select_mdbfile で、CommandButton コントロールです。インポートする Access ファイルを選択するために使用します。
5: 名前は importMDB、CommandButton コントロールです。ファイルを選択した後、このボタンを使用して MDB ファイルをインポートします。
6: 名前は CommonDialog1、CommonDialog コントロールです。
7: 名前はselect_xlsfile、CommandButton コントロール、インポートする Excel ファイルの選択に使用されます。
8: 名前 importXLS、CommandButton コントロールの場合、ファイルを選択した後、このボタンを使用して XLS ファイルをインポートします。
9: 名前は CommonDialog2、CommonDialog コントロールです。 10: 名前は prgBar1、進行状況バー (ProgressBar)、多くのレコードをインポートする場合は、進行状況バーを使用します。現在のインポートの進行状況を示すことができます
11: 名前は StatusBar1、ステータス バー (StatusBar) は、インポートの進行状況を示しますimport (「インポート中」、「インポート完了」など)
Styleを「1-sbrSimple」に設定するには
プログラムの先頭に次のステートメントを作成します
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
フォームをダブルクリックし、フォームを読み込むときに次のコードを入力します
Private Sub Form_Load()
'プログレスバーを非表示に設定します
prgBar1.Visible = False
'mysqlデータベースに接続します、pwdはデータベースのパスワード、uidはユーザー名、dsn はデータ ソースの名前です
Cnmysql.ConnectionString = "uid=root;pwd=;dsn=build"
Cnmysql.Open
End Sub