Visual Basic 6.0的技巧，负载从一个表的元数据，自动或重复一些琐碎的任务...

有时我们看到了需要列出我们的数据库中任何表的元数据（您知道该字段的名称，它的数据类型和长度）为例子，创建一个函数，允许我到一个表中插入数据。这是好的做法，写在我们的应用程序源代码的SQL语句，因为它是一个双汇编导致您失去的执行速度，但这个例子也可以采取建立自己指挥函数调用存储过程经理插入数据（如数据库管理器SP的支持女士例如SQL Server，MySQL等）。

源代码在微软的Visual Basic 6.0编写的攻击数据库女士访问：

'------------------------------------------------- ---------------------------------------------
在微软的Visual Basic 6.0编写的函数来读取数据和元数据
'无论是作为一个参数传递表...

公共职能Auditar_X（如字符串表）作为ADODB.Recordset

的SQL =“选择*从”及表

cn.CursorLocation =为adUseClient
设定RS = cn.Execute（SQL）的

九月Auditar_X =遥感

完功能
'端的功能...

'------------------------------------------------- ---------------------------------------------
'函数功能枪（双关语意）到表项目中插入数据...

私人小组cmdAceptar_Click（）
误差页转到电子

ArtTipoDato作为字符串暗淡，作为字符串艺术
昏暗的表作为字符串，字符串值
作为String ComillasDobles暗淡

'染色体（10）=输入
'染色体（13）=统计表

ComillasDobles =“”“”
表=“文章”
值=＆vbTab＆vbTab ComillasDobles＆“值（”
艺术=的“SQL =”＆ComillasDobles＆vbTab＆“的INSERT INTO”＆表＆“（”

如果Me.ListView1.ListItems（1）。选中，
frmCatDocumentos.Show 1
结束如果

如果Me.ListView1.ListItems（2）。选中，
'MsgBox“卡迪斯”
我作为整数暗淡

设定RS = Me.Auditar_X（表）

Me.List1.Clear

ArtTipoDato =“公共子插入”及表＆“（”

对于i = 0到rs.Fields.Count
'Me.List1.AddItem rs.Fields（一）名称及。“ - ”＆的TypeName（rs.Fields（一）值。）＆“ - ”＆rs.Fields（一）DefinedSize。
Me.List1.AddItem rs.Fields（一）。名称及“作为”＆的TypeName（rs.Fields（一）。价值）＆“”

ArtTipoDato = ArtTipoDato＆rs.Fields（我）。姓名及“作为”＆的TypeName（rs.Fields（一）。价值）＆“”

艺术与艺术= rs.Fields（我）。姓名＆“”

如果UCase（的TypeName（rs.Fields（一）。值））=“字符串”，然后
值=值＆“'”＆ComillasDobles＆“＆”＆rs.Fields（i）条。名称＆“＆”＆ComillasDobles＆“'”
结束如果

如果UCase（的TypeName（rs.Fields（一）。值））=“日期”，然后
值=值＆“＃”＆ComillasDobles＆“＆”＆rs.Fields（一）。名称＆“＆”＆ComillasDobles＆“＃”
价值观=值＆“＃”＆rs.Fields（我）。姓名＆“＃”
结束如果

如果UCase（的TypeName（rs.Fields（一）。值））=“长”或UCase（的TypeName（rs.Fields（一）。价值））=“双重”然后
值=值＆“”＆ComillasDobles＆“＆”＆rs.Fields（i）条。名称＆“＆”＆ComillasDobles＆“”
价值观=值＆“”＆rs.Fields（i）条。名称＆“，＆”
结束如果

'MsgBox rs.Fields（我）。姓名
'MsgBox rs.Fields（一）。价值
'MsgBox的TypeName（rs.Fields（一）。价值）
接下来，我
结束如果

'MsgBox ArtTipoDato

ArtTipoDato =左（ArtTipoDato，莱恩（ArtTipoDato） - 1）
ArtTipoDato = ArtTipoDato＆“）”

艺术=左（艺术，莱恩（艺术） - 1）
艺术=艺术＆“）”＆ComillasDobles＆“＆_”

左值=（值，莱恩（价值观） - 1）
值=值＆“）”

Me.lb.Caption = ArtTipoDato艺术与价值观
值=价值观与“设定RS = cn.Execute（SQL）的”
值=价值观和“结束子”
Me.Te.Text = ArtTipoDato及染色体（13）艺术＆染色体（13）与价值观

如果Me.ListView1.ListItems（3）。选中，
frmCatArticulos.Show 1
结束如果

如果Me.ListView1.ListItems（4）。选中，
MsgBox“退出”
结束如果
电子邮件：
继续下一步
结束小组
'------------------------------------------------- ---------------------------------------------

'这是正在运行的功能前面的代码...

公共子InsertarARTICULOS（条字符串，字符串描述为，
卖方作为字符串，字符串UMP_C作为字符串作为，UMP_V，
FACTOR_CONVER一样长，双COSTO_UMC作为兼作，COSTO_UMV，
PRECIO_V作为字符串，字符串字符串作为资产，USR_CREACION，
FECHA_HORA_CREACION日期，字符串USR_MODIFICACION为，
FECHA_HORA_MODIFICACION如日期）

的SQL =“插入项目助理（文章，评论，供应商
UMP_C，UMP_V，FACTOR_CONVER，COSTO_UMC，COSTO_UMV，PRECIO_V，
主动USR_CREACION，FECHA_HORA_CREACION，USR_MODIFICACION，
FECHA_HORA_MODIFICACION）“＆_
“的值（'”＆组及"','"及描述＆"','"与供应商
＆"','"＆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）的
结束小组

'端的功能...

'------------------------------------------------- ---------------------------------------------

现在您已经准备好要加入InsertarARTICULOS功能和程序的调用从任何地方英寸Tiep使我们获得很多的功能InsertarARTICULOS秒我想说的是，如何长时间才能上写的脚，我会说.....分钟

---

---