Visual Basic 6.0 Consigli, i metadati di carico da una tabella, automatizzare alcune attività banali o ripetitive ...

Sul occasione abbiamo visto la necessità di elencare i metadati per qualsiasi tabella nel nostro database (si conosce il nome del campo, il tipo di dati e lunghezza), per esempio per creare una funzione che mi permette di inserire dati in una tabella . E 'buona pratica di scrivere istruzioni SQL nel codice sorgente per la nostra applicazione, perché è una doppia compilation che causa la perdita di velocità di esecuzione, ma questo esempio può essere preso anche per creare le loro funzioni di comandante chiama il manager di stored procedure inserire dati (nel caso in cui il gestore del database ha il supporto sp Ms. ad esempio SQL Server, MySQL, ecc.)

Codice sorgente scritto in MS Visual Basic 6.0 attaccando un database di Access Ms:

'------------------------------------------------- ---------------------------------------------
'Funzione scritto in MS Visual Basic 6.0 per leggere i dati e metadati
'In ogni tabella che viene passato come parametro ...

Funzione Pubblica Auditar_X (tabella come stringa) come ADODB.Recordset

SQL = "SELECT * FROM" & Table

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

Settembre Auditar_X = rs

End Function
'Fine della funzione ...

'------------------------------------------------- ---------------------------------------------
'Funzione pistola Function (gioco di parole) per inserire dati nella tabella di oggetti ...

Private Sub cmdAceptar_Click ()
On Error GoTo e

As String Dim ArtTipoDato, art As String
Tabella fioco come stringa, un valore As String
ComillasDobles As String Dim

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

ComillasDobles = "" ""
Tabella = "Articoli"
= Valori ComillasDobles & vbTab & vbTab & "VALUES ("
Arte = "SQL =" & ComillasDobles & vbTab & "INSERT INTO" & Tabella & "("

Se Me.ListView1.ListItems (1). Selezionato allora
frmCatDocumentos.Show 1
End If

Se Me.ListView1.ListItems (2). Selezionato allora
'MsgBox "Kardex"
Dim i As Integer

Set rs = Me.Auditar_X (Tabella)

Me.List1.Clear

ArtTipoDato = "Inserire Public Sub" & Tabella & "("

Per i = 0 To rs.Fields.Count
'Rs.Fields Me.List1.AddItem (i) Nome &. "-" & TypeName (rs.Fields (i) il valore.) & "-" & Rs.Fields (i) DefinedSize.
rs.Fields Me.List1.AddItem (i).Nome & "As" e TypeName (rs.Fields (i). Value) & ""

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

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

Se UCase (TypeName (rs.Fields (i). Value)) = "stringa" Allora
I valori = valori & "'" & ComillasDobles & "&" & rs.Fields (i). Nome & "&" & ComillasDobles & "'"
End If

Se UCase (TypeName (rs.Fields (i). Value)) = "DATA" Allora
I valori = valori & "#" & ComillasDobles & "&" & rs.Fields (i).Nome & "&" & ComillasDobles & "#"
'I valori = valori & "#" & rs.Fields (i). Nome & "#"
End If

Se UCase (TypeName (rs.Fields (i). Value)) = "lungo" o UCase (TypeName (rs.Fields (i). Value)) = "DOUBLE" Allora
I valori = valori & "" & ComillasDobles & "&" & rs.Fields (i). Nome & "&" & ComillasDobles & ""
'I valori = valori & "" & 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 = Left (ArtTipoDato, Len (ArtTipoDato) - 1)
ArtTipoDato = ArtTipoDato & ")"

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

Valori = Left (Valore, Len (Valori) - 1)
I valori = valori & ")"

Me.lb.Caption = ArtTipoDato & Art & Valori
I valori = valori & "Set rs = cn.Execute (SQL)"
I valori = valori & "End Sub"
Me.Te.Text = ArtTipoDato & Chr (13) & Art & Chr (13) e Valori

Se Me.ListView1.ListItems (3). Selezionato allora
frmCatArticulos.Show 1
End If

Se Me.ListView1.ListItems (4). Selezionato allora
MsgBox "Exit"
End If
e:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

'Questa è la funzione che era in esecuzione il codice precedente ...

Public Sub InsertarARTICULOS (articolo come String, DESCRIZIONE As String,
VENDITORE As String, UMP_C come stringa, UMP_V come stringa,
Long FACTOR_CONVER Come, COSTO_UMC As Double, COSTO_UMV As Double,
PRECIO_V As String, beni come String, USR_CREACION come stringa,
FECHA_HORA_CREACION la data, USR_MODIFICACION come stringa,
FECHA_HORA_MODIFICACION As Date)

SQL = "INSERT INTO ARTICOLI (articoli, recensioni, FORNITORE
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV, PRECIO_V,
ACTIVE USR_CREACION, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "& _
"VALUES ('" & SEZIONE "','" & & & DESCRIZIONE "','" & FORNITORE
"','" & & & UMP_C "','" & UMP_V & "'," & FACTOR_CONVER & ""
COSTO_UMC & & "" & COSTO_UMV & "'" & PRECIO_V & "','" & ACTIVE
& & "','" "#,'" USR_CREACION & "',#" & FECHA_HORA_CREACION &
USR_MODIFICACION & & & "',#" FECHA_HORA_MODIFICACION & "#)"
Set rs = cn.Execute (SQL)
End Sub

'Fine della funzione ...

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

Ora siete pronti per essere aggiunti InsertarARTICULOS funzione e chiamare da qualsiasi punto del programma. Tiep tanto ci ha portato a ottenere il InsertarARTICULOS SECONDI funzione direi che e quanto tempo ci vorrebbe per scrivere sul piede, che direi ..... minuti

---

---