Dicas de Visual Basic 6.0, os metadados de carga de uma tabela, automatizar algumas tarefas triviais ou repetitivas ...

Na ocasião, vimos a necessidade de listar os metadados para qualquer tabela em nosso banco de dados (você sabe o nome do campo, seu tipo de dados e comprimento), por exemplo, para criar uma função que me permite inserir dados em uma tabela . É uma boa prática para escrever instruções SQL no código-fonte para a nossa aplicação, pois é uma compilação dupla que faz com que você perca velocidade de execução, mas este exemplo também pode ser levado a criar as suas funções de comandante chamar o gestor do procedimento armazenado inserir dados (no caso o gerente do banco de dados tem suporte sp Ms. por exemplo SQL Server, MySQL, etc.)

O código-fonte escrito em MS Visual Basic 6.0 atacar um banco de dados Access Senhora:

'------------------------------------------------- ---------------------------------------------
'Função escrito em MS Visual Basic 6.0 para ler os dados e metadados
«Em qualquer tabela que é passado como um parâmetro ...

Função Pública Auditar_X (Tabela As String) As ADODB.Recordset

SQL = "SELECT * FROM" & Tabela

CN.CursorLocation = adUseClient
Set rs = cn.Execute (SQL)

Setembro Auditar_X = rs

End Function
'Fim da função ...

'------------------------------------------------- ---------------------------------------------
'Função arma Função (trocadilho intencional) para inserir dados na tabela de itens ...

Private Sub cmdAceptar_Click ()
On error goto e

ArtTipoDato Dim String, a arte como String
Dim tabela As String, Valor As String
ComillasDobles As String Dim

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

ComillasDobles = "" ""
Tabela = "Artigos"
Valores = ComillasDobles & vbTab & vbTab & "VALUES ("
Arte = "SQL =" & ComillasDobles & vbTab & "INSERT INTO" & tabela & "("

Se Me.ListView1.ListItems (1). Selecionado então
frmCatDocumentos.Show 1
End If

Se Me.ListView1.ListItems (2). Selecionado então
"Kardex" MsgBox
Dim i As Integer

Set rs = Me.Auditar_X (Tabela)

Me.List1.Clear

ArtTipoDato = "Inserir Sub Pública" & tabela & "("

Para i = 0 para rs.Fields.Count
"Rs.Fields Me.List1.AddItem (i) Nome e." - "& TypeName (rs.Fields (i) Valor.) &" - "& Rs.Fields (i) DefinedSize.
rs.Fields Me.List1.AddItem (i).Nome & "como" e TypeName (rs.Fields (i). Value) & ""

ArtTipoDato = ArtTipoDato & rs.Fields (i). Nome e "como" e TypeName (rs.Fields (i). Value) & ""

Arte = Arte & rs.Fields (i). Nome & ""

Se UCase (TypeName (rs.Fields (i). Value)) = "string" Então
Valores = valores & "'" & ComillasDobles & "&" & rs.Fields (i). Nome & "&" & ComillasDobles & "'"
End If

Se UCase (TypeName (rs.Fields (i). Value)) = "DATA" Então
Valores = valores e "#" & ComillasDobles & "&" & rs.Fields (i).Nome & "&" & ComillasDobles & "#",
"Os valores e os valores =" # "& rs.Fields (i). Nome &" # ",
End If

Se UCase (TypeName (rs.Fields (i). Value)) = "longa" ou UCase (TypeName (rs.Fields (i). Value)) = "DOUBLE" Então
Valores = valores & "" & ComillasDobles & "&" & rs.Fields (i). Nome & "&" & ComillasDobles & ""
"Os valores = valores &" "& rs.Fields (i). Nome &" & "
End If

"Rs.Fields MsgBox (i) Nome.
"Rs.Fields MsgBox (i). Value
'MsgBox TypeName (rs.Fields (i). Value)
Next i
End If

'MsgBox ArtTipoDato

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

Arte = Left (Art, Arte Len () - 1)
Arte Arte = & ")" & ComillasDobles & "& _"

Valores = Left (valor, Len (Valores) - 1)
valores Valores = & ")"

Me.lb.Caption = ArtTipoDato & Arte e Valores
Valores = valores e "Set rs = cn.Execute (SQL)"
Valores = valores e "End Sub"
Me.Te.Text = ArtTipoDato & Chr (13) Arte & & Chr (13) e Valores

Se Me.ListView1.ListItems (3). Selecionado então
frmCatArticulos.Show 1
End If

Se Me.ListView1.ListItems (4). Selecionado então
MsgBox "Exit"
End If
e:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

"Esta é a função que estava executando o código anterior ...

Sub InsertarARTICULOS pública (artigo As String, descrição como String,
VENDEDOR String como, UMP_C As String, UMP_V As String,
FACTOR_CONVER As Long, COSTO_UMC Como COSTO_UMV, funcionam também como casal,
PRECIO_V As String, ATIVOS As String, USR_CREACION As String,
FECHA_HORA_CREACION como data, USR_MODIFICACION As String,
FECHA_HORA_MODIFICACION como data)

SQL = "INSERT INTO itens (artigos, resenhas, FORNECEDOR
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV PRECIO_V,
ACTIVE USR_CREACION, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "_ &
"VALUES ('" SECÇÃO & & & "','" & "','" & DESCRIÇÃO DO FORNECEDOR
& "','" & UMP_C & "','" & UMP_V & "'," FACTOR_CONVER & ""
COSTO_UMC & & "" COSTO_UMV & "'" PRECIO_V & & "','" & ACTIVO
& "','" & "#,'" USR_CREACION "',#" & & & FECHA_HORA_CREACION
USR_MODIFICACION & & & "',#" FECHA_HORA_MODIFICACION & "#)"
Set rs = cn.Execute (SQL)
End Sub

'Fim da função ...

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

Agora você está pronto para ser adicionado InsertarARTICULOS função e ligar de qualquer lugar no programa. Tiep muito nos levou a obter o InsertarARTICULOS segundos Função Eu diria que, e quanto tempo levaria para escrevê-lo em pé, que eu diria ..... minutos

---

---