Loading
機会に私たちは、データベース内の任意のテーブルのメタデータを一覧表示する必要性を見ている（あなたは、フィールドの名前を知って、そのデータ型と長さ）は、例えばテーブルにデータを挿入する私を可能に関数を作成する。それは、それはあなたは、実行速度を失うことになりますdoubleコンパイルであり、我々がアプリケーションのソースコード内のSQLステートメントを記述することをお勧めしますこの例ではまた彼らの指揮機能は、ストアドプロシージャのマネージャを呼び出して作成して撮影することができますデータを挿入（大文字と小文字でデータベースマネージャーは、spをサポートしている氏のSQL Server、MySQLは、などなど）。
データベース氏アクセス攻撃はMS Visual Basic 6.0で記述されたソースコード：
'------------------------------------------------- ---------------------------------------------
'はMS Visual Basic 6.0で記述された関数は、データとメタデータを読み取る
'パラメータとして渡される任意のテーブルでは...
パブリック関数Auditar_X（文字列として表）ADODB.Recordsetのように
＆表のSQL ="から選択*"
cn.CursorLocation = adUseClientを
セットrs = cn.Execute（SQL）を
9月Auditar_X = rsの
エンド機能
関数の'は、End ...
'------------------------------------------------- ---------------------------------------------
'テーブルの項目にデータを挿入する機能関数銃（しゃれ）...
します。Private Sub cmdAceptar_Click（）
エラー後藤電子で
ArtTipoDato文字列名As Stringとしての、アート
文字列としてほのかなテーブル、文字列として値
文字列としてComillasDobles薄暗い
'Chr（10）の=キー
'Chr（13）と=タブ
ComillasDobles =""""
表="記事"
値= ComillasDobles＆vbTab＆vbTab＆"値（"
アート=の"SQL ="＆ComillasDobles＆vbTab＆"のINSERT INTO"＆表＆"（"
次に、選択されたMe.ListView1.ListItems（1）の場合。
frmCatDocumentos.Show 1
endの場合
次に、選択されたMe.ListView1.ListItems（2）の場合。
'メッセージボックス"Kardex"
整数として暗い一
セットrs = Me.Auditar_X（表）
Me.List1.Clear
ArtTipoDato ="パブリックSub挿入"＆表＆"（"
i = 0のためにrs.Fields.Countするには
'Me.List1.AddItemのrs.Fields（i）はネーム＆" - "＆TypeNameは（rs.Fields（i）が値です。）＆" - "＆rs.Fields（i）がDefinedSize。
Me.List1.AddItemのrs.Fields（i）は。名前＆"として"＆TypeNameは（rs.Fields（i）に値）＆""
ArtTipoDato = ArtTipoDato＆rs.Fields（i）に名前と"として"＆TypeNameは（rs.Fields（i）に値）＆""
芸術=アート＆rs.Fields（i）に名前＆""
場合UCase関数（TypeNameは（rs.Fields（i）に値））次に、="文字列"
値=値＆"'"＆ComillasDobles＆"＆"＆rs.Fields（i）にネーム＆"＆"＆ComillasDobles＆"'"
endの場合
場合UCase関数（TypeNameは（rs.Fields（i）に値））="日付"その後
値=値＆"＃"＆ComillasDobles＆"＆"＆rs.Fields（i）は。名前＆"＆"＆ComillasDobles＆"＃"
'値=値＆"＃"＆rs.Fields（i）に名前と"＃"
endの場合
場合UCase関数（TypeNameは（rs.Fields（i）に値））="ロング"またはUCase関数（TypeNameは（rs.Fields（i）に値））="ダブル"それから
値=値＆""＆ComillasDobles＆"＆"＆rs.Fields（i）にネーム＆"＆"＆ComillasDobles＆""
'値=値＆""＆rs.Fields（i）に名前と"＆"
endの場合
'のMsgBox rs.Fields（i）に名
'のMsgBox rs.Fields（i）に値
'メッセージボックスTypeNameは（rs.Fields（i）に値）
次のI
endの場合
'のMsgBox ArtTipoDato
ArtTipoDato =左（ArtTipoDatoは、Len（ArtTipoDato） - 1）
ArtTipoDato = ArtTipoDato＆"）"
アートは左=（アートは、Len（アート） - 1）
芸術=アート＆"）"＆ComillasDobles＆"＆_"
値は、left =（値は、Len（値） - 1）
値=値＆"）"
Me.lb.Captionは= ArtTipoDato＆アート＆値
値=値＆"します。Set rs = cn.Execute（SQL）"を
値=値＆"End Sub"の
Me.Te.Text = ArtTipoDato＆Chr（13）とアート＆Chr（13）と値
次に、選択されたMe.ListView1.ListItems（3）の場合。
frmCatArticulos.Show 1
endの場合
次に、選択されたMe.ListView1.ListItems（4）の場合。
します。MsgBox"終了"
endの場合
メール：
Resume Nextステートメント
End Subの
'------------------------------------------------- ---------------------------------------------
'これは上記のコードを実行されていた機能です...
公共のサブInsertarARTICULOS（物品の文字列として、文字列として記述、
ベンダーとして文字列、文字列として、UMP_VとしてUMP_C、
FACTOR_CONVER限り、ダブル、ダブル、COSTO_UMVとしてCOSTO_UMC、
文字列としてPRECIO_V、文字列として、USR_CREACIONの資産、
FECHA_HORA_CREACION日として、文字列としてUSR_MODIFICACION、
日付としてFECHA_HORA_MODIFICACION）
SQLの="のINSERT INTO商品（記事、レビュー、納入業者
UMP_C、UMP_V、FACTOR_CONVER、COSTO_UMC、COSTO_UMV、PRECIO_V、
アクテイフUSR_CREACION、FECHA_HORA_CREACION、USR_MODIFICACION、
FECHA_HORA_MODIFICACION）"＆_
"のVALUES（'"＆セクション＆"','"＆説明＆"','"＆サプライヤー
＆"','"＆UMP_C＆"','"＆UMP_V＆"'、"＆FACTOR_CONVER＆""
＆COSTO_UMC＆""＆COSTO_UMV＆"'"＆PRECIO_V＆"','"＆アクティブ
＆"','"＆USR_CREACION＆"',#"＆FECHA_HORA_CREACION＆"#,'"
＆USR_MODIFICACION＆"',#"＆FECHA_HORA_MODIFICACION＆"＃）"
セットrs = cn.Execute（SQL）を
End Subの
関数の'は、End ...
'------------------------------------------------- ---------------------------------------------
ここでは、プログラム内の任意の場所です準備することから呼び出しを追加し、InsertarARTICULOSは機能します。 TIEPでは、多くの分.....と言うと、それを足主導の書き込みにどのようになること私たちと、そのだと思います私は秒をInsertarARTICULOS関数に取得私は
Date: 2011-12-05
