Visual Basic 6.0 Tips, Load metadata uit een tabel, het automatiseren van enkele triviale of repetitieve taken ...

Bij gelegenheid hebben we de noodzaak om de metadata lijst voor elke tabel in onze database gezien (je weet wel de naam van het veld, het gegevenstype en lengte) voor bijvoorbeeld naar een functie die me in staat stelt te voegen gegevens in een tabel te maken . Het is een goede gewoonte om SQL-statements te schrijven in de broncode voor onze toepassing want het is een dubbele compilatie die ervoor zorgt dat je verliest snelheid van uitvoering, maar dit voorbeeld beschreven kunnen worden genomen om te maken hun commandant functies aan te roepen de opgeslagen procedure manager Voer de gegevens in (in het geval de database manager heeft sp ondersteuning Ms bijvoorbeeld SQL Server, MySQL, etc.).

Broncode geschreven in MS Visual Basic 6.0 aanval op een database Ms Access:

'------------------------------------------------- ---------------------------------------------
'Functie geschreven in MS Visual Basic 6.0 naar de gegevens en metagegevens te lezen
'In elke tabel die wordt doorgegeven als een parameter ...

Publieke functie Auditar_X (tabel As String) Zoals ADODB.Recordset

SQL = "SELECT * FROM" & tabel

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

September Auditar_X = rs

End Function
'Einde van de functie ...

'------------------------------------------------- ---------------------------------------------
'Functie Functie pistool (pun intended) in te voegen gegevens in de tabel ITEMS ...

Private Sub cmdAceptar_Click ()
On Error GoTo e

ArtTipoDato Dim As String, Art As String
Dim tabel As String, Value As String
ComillasDobles As String Dim

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

ComillasDobles = "" ""
Table = "Artikelen"
Waarden = ComillasDobles & vbTab & vbTab & "VALUES ("
Art = "SQL =" & ComillasDobles & vbTab & "INSERT INTO" & tabel & "("

Als Me.ListView1.ListItems (1). Vervolgens geselecteerd
frmCatDocumentos.Show 1
End If

Als Me.ListView1.ListItems (2). Vervolgens geselecteerd
'MsgBox "Kardex"
Dim i As Integer

Set rs = Me.Auditar_X (tabel)

Me.List1.Clear

ArtTipoDato = "Public Sub invoegen" & tabel & "("

Voor i = 0 Om rs.Fields.Count
'Me.List1.AddItem rs.Fields (i) Naam en. "-" & TypeName (rs.Fields (i)-waarde.) & "-" & Rs.Fields (i) DefinedSize.
Me.List1.AddItem rs.Fields (i).Naam & "As" & TypeName (rs.Fields (i). Value) & ""

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

Kunst = Kunst & rs.Fields (i). Naam & ""

Als ucase (TypeName (rs.Fields (i). Value)) = "string" Dan
Waarden = waarden & "'" & ComillasDobles & "&" & rs.Fields (i). Naam & "&" & ComillasDobles & "'"
End If

Als ucase (TypeName (rs.Fields (i). Value)) = "DATE" Dan
Waarden = waarden & "#" & ComillasDobles & "&" & rs.Fields (i).Naam & "&" & ComillasDobles & "#,"
'Waarden = waarden & "#" & rs.Fields (i). Naam & "#,"
End If

Als ucase (TypeName (rs.Fields (i). Value)) = "long" of ucase (TypeName (rs.Fields (i). Value)) = "DOUBLE" Dan
Waarden = waarden & "" & ComillasDobles & "&" & rs.Fields (i). Naam & "&" & ComillasDobles & ""
'Waarden = waarden & "" & rs.Fields (i). Naam & ", &"
End If

'MsgBox rs.Fields (i). Naam
'MsgBox rs.Fields (i). Prijs
'MsgBox TypeName (rs.Fields (i). Value)
Vervolgens heb ik
End If

'MsgBox ArtTipoDato

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

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

Waarden = Links (Waarde, Len (Waarden) - 1)
Waarden = waarden & ")"

Me.lb.Caption = ArtTipoDato & Art & Waarden
Waarden = waarden & "Set rs = cn.Execute (SQL)"
Waarden = waarden & "End Sub"
Me.Te.Text = ArtTipoDato & Chr (13) & Art & Chr (13) & Waarden

Als Me.ListView1.ListItems (3). Vervolgens geselecteerd
frmCatArticulos.Show 1
End If

Als Me.ListView1.ListItems (4). Vervolgens geselecteerd
MsgBox "Exit"
End If
e:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

'Dit is de functie die liep de vorige code ...

Public Sub InsertarARTICULOS (ARTIKEL As String, BESCHRIJVING As String,
VERKOPER As String, UMP_C As String, UMP_V As String,
FACTOR_CONVER As Long, COSTO_UMC As Double, COSTO_UMV As Double,
PRECIO_V As String, ACTIVA As String, USR_CREACION As String,
FECHA_HORA_CREACION als datum, USR_MODIFICACION As String,
FECHA_HORA_MODIFICACION Zoals Datum)

SQL = "INSERT INTO PUNTEN (artikelen, recensies, LEVERANCIER
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV, PRECIO_V,
ACTIEVE USR_CREACION, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "& _
"VALUES ('" & AFDELING & "','" & beschrijving & "','" & LEVERANCIER
& & "','" UMP_C & "','" & UMP_V & "'," & FACTOR_CONVER & ""
& COSTO_UMC & "" & COSTO_UMV & "'" & PRECIO_V & "','" & ACTIEF
& & "','" USR_CREACION & "',#" & FECHA_HORA_CREACION & "#,'"
& & USR_MODIFICACION "',#" & FECHA_HORA_MODIFICACION & "#)"
Set rs = cn.Execute (SQL)
End Sub

'Einde van de functie ...

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

Nu bent u klaar om te worden toegevoegd InsertarARTICULOS functie en bellen vanaf elke locatie in het programma. Tiep veel leidde ons naar de minuten te verkrijgen van de functie InsertarARTICULOS SECONDEN Ik zou zeggen dat, en hoe lang het zou duren om het te schrijven op de voet, wat zou ik zeggen .....

---

---