Visual Basic 6.0 Tipps, Load-Metadaten aus einer Tabelle, Automatisierung einiger trivial oder sich wiederholende Aufgaben ...

Gelegentlich haben wir die Notwendigkeit, die Metadaten für jede Tabelle in der Datenbank Liste gesehen (Sie kennen den Namen des Feldes, den Datentyp und Länge) zum Beispiel, um eine Funktion, die mir erlaubt das Einfügen von Daten in eine Tabelle zu erstellen . Es ist gute Praxis, SQL-Anweisungen in den Quellcode für unsere Anwendung zu schreiben, weil es eine doppelte Erfassung der Sie die Geschwindigkeit der Ausführung verlieren Ursachen ist, aber dieses Beispiel kann auch getroffen werden, um zu erstellen ihr kommandierender Funktionen rufen Sie die gespeicherte Prozedur Manager werden Einfügen von Daten (bei den Datenbank-Manager hat sp Unterstützung Ms. zB SQL Server, MySQL, etc.).

Source-Code in MS Visual Basic 6.0 Angriff auf eine Frau Datenbank Access geschrieben:

'------------------------------------------------- ---------------------------------------------
'Funktion in MS Visual Basic 6.0 geschrieben zu lesen die Daten und Metadaten
"In keiner Tabelle, die als Parameter übergeben wird ...

Public Function Auditar_X (Tabelle As String) As ADODB.Recordset

SQL = "SELECT * FROM" & Tabelle

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

September Auditar_X = rs

End Function
"Ende der Funktion ...

'------------------------------------------------- ---------------------------------------------
'Funktion Funktion Pistole (Wortspiel beabsichtigt), um Daten in der Tabelle PUNKTE ...

Private Sub cmdAceptar_Click ()
On Error GoTo e

ArtTipoDato Dim As String, Kunst As String
Dim Tabelle As String, Value As String
ComillasDobles As String Dim

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

ComillasDobles = "" ""
Tabelle = "Artikel"
Werte = ComillasDobles & vbTab & vbTab & "VALUES ("
Kunst = "SQL =" & ComillasDobles & vbTab & "INSERT INTO" & Table & "("

Wenn Me.ListView1.ListItems (1). Ausgewählte Dann
frmCatDocumentos.Show 1
End If

Wenn Me.ListView1.ListItems (2). Ausgewählte Dann
'MsgBox "Kardex"
Dim i As Integer

Set rs = Me.Auditar_X (Tabelle)

Me.List1.Clear

ArtTipoDato = "Public Sub Einfügen" & Table & "("

Für i = 0 To rs.Fields.Count
"Me.List1.AddItem rs.Fields (i) Name &." - "& TypeName (rs.Fields (i)-Wert.) &" - "& Rs.Fields (i) DefinedSize.
Me.List1.AddItem rs.Fields (i).Name & "Wie" & TypeName (rs.Fields (i). Value) & ""

ArtTipoDato = ArtTipoDato & rs.Fields (i). Name & "Wie" & TypeName (rs.Fields (i). Value) & ""

Art = Kunst & rs.Fields (i). Name & ""

Wenn UCase (TypeName (rs.Fields (i). Value)) = "string" Dann
Werte = Werte & "'" & ComillasDobles & "&" & rs.Fields (i). Name & "&" & ComillasDobles & "'"
End If

Wenn UCase (TypeName (rs.Fields (i). Value)) = "DATE" Dann
Werte = Werte & "#" & ComillasDobles & "&" & rs.Fields (i).Name & "&" & ComillasDobles & "#"
"Werte = Werte &" # "& rs.Fields (i). Name &" # "
End If

Wenn UCase (TypeName (rs.Fields (i). Value)) = "lang" oder UCase (TypeName (rs.Fields (i). Value)) = "DOUBLE" Dann
Werte = Werte & "" & & ComillasDobles "&" & rs.Fields (i). Name & "&" & ComillasDobles & ""
"Werte = Werte &" "& rs.Fields (i). Name &", & "
End If

'MsgBox rs.Fields (i). Name
'MsgBox rs.Fields (i). Value
'MsgBox TypeName (rs.Fields (i). Value)
Next i
End If

'MsgBox ArtTipoDato

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

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

Werte = Left (Wert, Len (Werte) - 1)
Werte = Werte & ")"

Me.lb.Caption = ArtTipoDato & Kunst & Werte
Werte = Werte & "Set rs = Cn.Execute (SQL)"
Werte = Werte & "End Sub"
Me.Te.Text = ArtTipoDato & Chr (13) & Kunst & Chr (13) & Werte

Wenn Me.ListView1.ListItems (3). Ausgewählte Dann
frmCatArticulos.Show 1
End If

Wenn Me.ListView1.ListItems (4). Ausgewählte Dann
MsgBox "Exit"
End If
e:
Resume Next
End Sub
'------------------------------------------------- ---------------------------------------------

"Dies ist die Funktion, auf dem vorherigen Code wurde ...

Public Sub InsertarARTICULOS (ARTIKEL As String, BESCHREIBUNG As String,
Lieferanten als 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, AKTIVA As String, USR_CREACION As String,
FECHA_HORA_CREACION As Date, USR_MODIFICACION As String,
FECHA_HORA_MODIFICACION As Date)

SQL = "INSERT INTO PUNKTE (Artikel, Rezensionen, LIEFERANT
UMP_C, UMP_V, FACTOR_CONVER, COSTO_UMC, COSTO_UMV, PRECIO_V,
ACTIVE USR_CREACION, FECHA_HORA_CREACION, USR_MODIFICACION,
FECHA_HORA_MODIFICACION) "& _
"VALUES ('" & & ABSCHNITT "','" & BESCHREIBUNG & "','" & PARTNER
& & "','" UMP_C & "','" & UMP_V & "'," & FACTOR_CONVER & ""
& COSTO_UMC & "" & COSTO_UMV & "'" & & PRECIO_V "','" & AKTIV
& & "','" USR_CREACION & "',#" & FECHA_HORA_CREACION & "#,'"
& & USR_MODIFICACION "',#" & FECHA_HORA_MODIFICACION & "#)"
Set rs = Cn.Execute (SQL)
End Sub

"Ende der Funktion ...

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

Nun sind Sie bereit zu sein hat InsertarARTICULOS Funktion, und rufen Sie von überall auf dem Programm. Tiep viel führte uns bis Minuten erhalten die Funktion InsertarARTICULOS SEKUNDEN würde, würde ich sagen, dass und wie lange würde es dauern, es zu schreiben, zu Fuß, mit dem ich sagen .....

---

---