時間編集実行tebleアクセスからVB6の？

[kas1]

こんにちは
私はVB6のデータを編集するMSのアクセスが必要です。貸し付けは、名前と言うのアクセステーブルをのiて'table1の'、それはデータがある。私はVBからテーブルにデータを入力してください以上が必要です。そこに私をテキストボックスでは助けてくださいVBは誰にすることができますADODCのと呼ばれる追加のデータを使用してname.txt.im。コードをする場合のサンプルを私にuができますしてください送ってください。

 

[Guest]

使用して'のレコードAddNewメソ¥ッド'。あなたはサイトのWebコードをからMicrosoftのサンプルすることができます詳細を取得および。

 

[Guest]

[No message]

 

[Aya2002]

私も

 

[Guest]

例の、そこからたくさんのmsdn.Microsoft.comが-です！引用：'BeginAddNewVB'このコードを統合するには

'データソ¥ースと初期カタログ値を置き換える

'接続文字列で公共のサブ（）はメイン

エラーのGoTo ErrorHandlerがで'レコードセットと接続変数

ADODB.Connectionのように暗いCnxn

ADODB.Recordsetのように暗いrstEmployees

文字列として暗いstrCnxn

点心は、文字列としています。strSQL

'レコードの変数

点心ストリッド文字列として

文字列として暗いstrFirstName

文字列として暗いstrLastName

点心を付けてblnRecordAddedブール'接続をオープンする

設定Cnxnは=新しいADODB.Connectionの

strCnxn ="プロバイダ='SQLOLEDB'は、データソ¥ース='MySQLServerを';"＆_

"初期カタログ='Northwindの';統合セキュリティ='SSPIを';"

Cnxn.OpenのstrCnxn'オープン従業員表¥を更新することができますカーソ¥ル

設定rstEmployees =新しいADODB.Recordsetの

=います。strSQL"社員"

rstEmployees.Openいます。strSQL、strCnxn、adOpenKeyset、にadLockOptimistic、レコードソ¥ースユーザーからの'取得データ

strFirstName =トリムは（InputBox関数（"））最初の名前："と入力します

strLastName =トリムは（InputBox関数（"））最後の名："入力してください'場合にのみ、ユーザーが実際に何かを入力進みます

'の両方の最初と最後の名前の

strFirstName <>""そして、strLastName <>"を"次に場合rstEmployees.AddNew

rstEmployees！姓= strFirstName

rstEmployees！氏名= strLastName

rstEmployees.Update

blnRecordAdded = Trueに'を表¥示する新たに追加されたデータ

します。MsgBox"新規レコード："＆rstEmployees！社員＆""＆_

rstEmployees！姓＆""＆rstEmployees！氏名エルス

MsgBoxには、"してください姓と名を入力します。"

エンド場合'削除、新しいレコードを、これはデモですので、

Cnxn.Execute"にDELETE FROM社員WHERE社員='"＆ストリッド＆"'"'クリーンアップ

rstEmployees.Close

Cnxn.Close

設定rstEmployeesは=ではNothing

設定Cnxn =何も

終了サブErrorHandlerを：

'クリーンアップ

まだ何もしているrstEmployees場合

rstEmployees.Stateは= adStateOpen次にrstEmployees.Close場合

エンド場合

設定rstEmployeesは=ではNothingCnxnはNothing次にれていない場合

場合Cnxn.State = adStateOpen次にCnxn.Close

エンド場合

設定Cnxn =何も> 0から<errが

のMsgBox Err.Source＆"-->"＆オブジェクトを初期化、"エラー"

エンド場合

End Subの

'EndAddNewVB

 

[Aya2002]

ありがとうのGSMマン