Visual Basic 6.0 Советы, загрузка метаданных из таблицы, автоматизировать некоторые тривиальные или повторяющихся задач ...

В некоторых случаях мы видели необходимость в список метаданных для любой таблицы в базе данных (вы знаете имя поля, тип данных и длину), например, создать функцию, которая позволяет мне вставить данные в таблицу . Это хорошая практика, чтобы написать SQL заявления в исходный код для нашего приложения, потому что это двойной сборник что приводит к потере скорости исполнения, но этот пример также могут быть приняты для создания их командир функции вызова хранимой процедуры менеджер вставки данных (в случае Менеджер баз данных С. П. поддержку г-жа например, SQL Server, MySQL и т.д.).

Исходный код написан на MS Visual Basic 6.0 атакуют базы данных г-жа доступа:

'------------------------------------------------- ---------------------------------------------
"Функция написана на MS Visual Basic 6.0 для чтения данных и метаданных
"В любом столе, который передается в качестве параметра ...

Общественная функция Auditar_X (табл. As String) As ADODB.Recordset

SQL = "SELECT * FROM" & Таблица

cn.CursorLocation = adUseClient
Установить RS = cn.Execute (SQL)

Сентябрь Auditar_X = RS

End Function
"Конец функции ...

'------------------------------------------------- ---------------------------------------------
"Функция Функция пушки (каламбур) для вставки данных в таблицу элементов ...

Private Sub cmdAceptar_Click ()
On Error GoTo E

ArtTipoDato Dim As String, искусство как String
Dim Таблица As String, значение как String
ComillasDobles As String Dim

"Chr (10) = ENTER
"Chr (13) = TAB

ComillasDobles = "" ""
Таблица = "Статьи"
Значения = ComillasDobles и vbTab и vbTab и "ценностей ("
Искусство = "SQL =" & & ComillasDobles vbTab и "INSERT INTO" & Таблица & "("

Если Me.ListView1.ListItems (1). Выбранный Тогда
frmCatDocumentos.Show 1
End If

Если Me.ListView1.ListItems (2). Выбранный Тогда
"MsgBox" Kardex "
Дим я As Integer

Установить RS = Me.Auditar_X (таблица)

Me.List1.Clear

ArtTipoDato = "Общественное Вставьте Sub" & Таблица & "("

Для я = 0 Для rs.Fields.Count
"Me.List1.AddItem входным параметром rs.Fields (я) Название коллекции." - "& TypeName (входным параметром rs.Fields (я) значение.) &" - "И входным параметром rs.Fields (я) DefinedSize.
Me.List1.AddItem входным параметром rs.Fields (я).Название коллекции "Как" и TypeName (входным параметром rs.Fields (я). Value) & ""

ArtTipoDato = ArtTipoDato и входным параметром rs.Fields (я). Название и "Как" и TypeName (входным параметром rs.Fields (я). Value) & ""

Искусство = Искусство и входным параметром rs.Fields (я). Название коллекции ""

Если UCase (TypeName (входным параметром rs.Fields (я). Соотношение)) = "СТРОКА" Тогда
Значения = значения & "'" & ComillasDobles & "&" & входным параметром rs.Fields (я). Название & "&" & & ComillasDobles "" "
End If

Если UCase (TypeName (входным параметром rs.Fields (я). Соотношение)) = "ДАТА" Тогда
Значений = значение & "#" & & ComillasDobles "&" & входным параметром rs.Fields (я).Название коллекции "&" & & ComillasDobles "#",
"Значения = значения &" # "& входным параметром rs.Fields (я). Название &" # ",
End If

Если UCase (TypeName (входным параметром rs.Fields (я). Соотношение)) = "длинный" Или UCase (TypeName (входным параметром rs.Fields (я). Соотношение)) = "DOUBLE" Тогда
Значения = значения & "" & ComillasDobles & "&" & входным параметром rs.Fields (я). Название & "&" & & ComillasDobles ""
"Значения = значения &" "& входным параметром rs.Fields (я). Название коллекции", и "
End If

"MsgBox входным параметром rs.Fields (я). Название
"MsgBox входным параметром rs.Fields (я). Соотношение
"MsgBox TypeName (входным параметром rs.Fields (я). Value)
Следующая я
End If

"MsgBox ArtTipoDato

ArtTipoDato = Left (ArtTipoDato, Len (ArtTipoDato) - 1)
ArtTipoDato = ArtTipoDato & ")"

Искусство = Left (Искусство, Лен (Искусство) - 1)
Искусство = Искусство & ")" & ComillasDobles & "& _"

Значения = Left (стоимость, Лен (значения) - 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 If

Если Me.ListView1.ListItems (4). Выбранный Тогда
MsgBox "Выход"
End If
E:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

"Это функция, которая работала предыдущий код ...

Public Sub InsertarARTICULOS (СТАТЬЯ As String, описание As String,
Поставщик As String, UMP_C As String, UMP_V As String,
FACTOR_CONVER As Long, COSTO_UMC Как Double, COSTO_UMV Как Double,
PRECIO_V As String, АКТИВЫ As String, USR_CREACION As String,
FECHA_HORA_CREACION как дата, USR_MODIFICACION As String,
FECHA_HORA_MODIFICACION как дата)

SQL = "INSERT INTO ПУНКТЫ (статьи, обзоры, ПОСТАВЩИК
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV, PRECIO_V,
ACTIVE USR_CREACION, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "& _
"VALUES ('" & & РАЗДЕЛ "','" И ОПИСАНИЕ И "','" и ПОСТАВЩИК
& & "','" UMP_C и "','" и UMP_V & "'," & & FACTOR_CONVER ""
И COSTO_UMC & "" & COSTO_UMV & "'" & & PRECIO_V "','" & ACTIVE
& & "','" USR_CREACION и "',#" и FECHA_HORA_CREACION и "#,'"
& & USR_MODIFICACION "',#" и FECHA_HORA_MODIFICACION & "#)"
Установить RS = cn.Execute (SQL)
End Sub

"Конец функции ...

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

Теперь вы готовы быть добавлены InsertarARTICULOS функцию и вызвать из любого места в программе. Тьеп много привел нас получить функцию InsertarARTICULOS секунд я бы сказал, что, и как долго это займет написать его на ноги, которые я хотел бы сказать ..... минут

---

---