Visual Basic 6.0 Conseils, les métadonnées de charge d'une table, d'automatiser certaines tâches répétitives ou trivial ...

À l'occasion, nous avons vu la nécessité de dresser la liste des métadonnées pour n'importe quelle table dans notre base de données (vous connaissez le nom du champ, son type de données et de la longueur) par exemple pour créer une fonction qui me permet d'insérer des données dans une table . Il est bon d'écrire des instructions SQL dans le code source de notre demande parce qu'elle est une double compilation qui vous fait perdre de la vitesse d'exécution, mais cet exemple peut également être prises pour créer leurs fonctions de commandement appeler le gestionnaire de procédure stockée insérer des données (au cas où le gestionnaire de base de données prend en charge sp Mme exemple SQL Server, MySql, etc).

Le code source écrit en MS Visual Basic 6.0 attaquer une base de données Access Mme:

'------------------------------------------------- ---------------------------------------------
'Fonction écrit en MS Visual Basic 6.0 pour lire les données et les métadonnées
«En tout état de table qui est passé comme un paramètre ...

Auditar_X Fonction publique (tableau As String) As ADODB.Recordset

SQL = "SELECT * FROM" & Tableau

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

Auditar_X Septembre = rs

End Function
»Fin de la fonction ...

'------------------------------------------------- ---------------------------------------------
'Fonction Fonction armes à feu (jeu de mots) pour insérer des données dans le tableau des postes ...

Private Sub cmdAceptar_Click ()
Le GoTo Erreur e

As String Dim ArtTipoDato, Art As String
Tableau Dim As String, Valeur As String
As String Dim ComillasDobles

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

ComillasDobles = "" ""
Tableau = "ARTICLES"
Valeurs = ComillasDobles & vbTab & vbTab & "VALUES ("
Art = "SQL =" & & ComillasDobles vbTab & "INSERT INTO" & & Table "("

Si Me.ListView1.ListItems (1). Sélectionné,
frmCatDocumentos.Show 1
End If

Si Me.ListView1.ListItems (2). Sélectionné,
'MsgBox "Kardex"
i As Integer Dim

Set rs = Me.Auditar_X (tableau)

Me.List1.Clear

ArtTipoDato = "Insérer Public Sub" & & Table "("

Pour i = 0 Pour rs.Fields.Count
«Rs.Fields Me.List1.AddItem (i) Nom et." - "& TypeName (rs.Fields (i) la valeur.) &" - "& Rs.Fields (i) DefinedSize.
rs.Fields Me.List1.AddItem (i).Nom & "As" et TypeName (rs.Fields (i). Value) & ""

ArtTipoDato = ArtTipoDato & rs.Fields (i). Nom et "As" et TypeName (rs.Fields (i). Value) & ""

Art Art & rs.Fields = (i). Nom & ""

Si UCase (TypeName (rs.Fields (i). Value)) = "string" Alors
Valeurs = valeurs & "'" & ComillasDobles & "&" & rs.Fields (i). Nom & "&" & ComillasDobles & "'"
End If

Si UCase (TypeName (rs.Fields (i). Value)) = "DATE" Alors
Valeurs = valeurs et "#" & ComillasDobles & "&" & rs.Fields (i).Nom & "&" & ComillasDobles & "#",
«Les valeurs = valeurs et" # "& rs.Fields (i). Nom &" # ",
End If

Si UCase (TypeName (rs.Fields (i). Value)) = "long" ou UCase (TypeName (rs.Fields (i). Value)) = "DOUBLE" Alors
Valeurs = valeurs & "" & & ComillasDobles "&" & rs.Fields (i). Nom & "&" & ComillasDobles & ""
«Les valeurs = valeurs &" "& rs.Fields (i). Nom &", et "
End If

«Rs.Fields MsgBox (i). Nom
«Rs.Fields MsgBox (i). Valeur
'MsgBox TypeName (rs.Fields (i). Value)
Next i
End If

ArtTipoDato MsgBox "

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

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

Valeurs = gauche (valeur, Len (Valeurs) - 1)
Valeurs des valeurs = & ")"

Me.lb.Caption = ArtTipoDato & Art & Valeurs
Valeurs = valeurs et "Set rs = Cn.Execute (SQL)"
Valeurs = valeurs et "End Sub"
Me.Te.Text = ArtTipoDato & Chr (13) et Art & Chr (13) et valeurs

Si Me.ListView1.ListItems (3). Sélectionné,
frmCatArticulos.Show 1
End If

Si Me.ListView1.ListItems (4). Sélectionné,
MsgBox "Exit"
End If
e:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

«C'est la fonction qui exécute le code précédent ...

Sous publique InsertarARTICULOS (ARTICLE As String, DESCRIPTION As String,
VENDEUR As String, UMP_C As String, UMP_V As String,
Long FACTOR_CONVER Comme, COSTO_UMC En double, COSTO_UMV As Double,
PRECIO_V As String, ACTIF As String, USR_CREACION As String,
FECHA_HORA_CREACION que la date, USR_MODIFICACION As String,
Comme FECHA_HORA_MODIFICACION Date)

SQL = "INSERT INTO ITEMS (articles, commentaires, FOURNISSEUR
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV, PRECIO_V,
USR_CREACION ACTIVE, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "& _
"VALUES ('" & & SECTION "','" & DESCRIPTION & "','" & FOURNISSEUR
& & "','" 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

»Fin de la fonction ...

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

Vous êtes maintenant prêt à être ajouté InsertarARTICULOS fonction et appeler de n'importe où dans le programme. Tiep beaucoup nous ont conduit à obtenir le InsertarARTICULOS SECONDES fonction je dirais que, et combien de temps il faudrait l'écrire sur pied, dont je dirais ..... minutes

---

---