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

Related Posts

Visual Basic 6.0 Tipps, Load-Metadaten aus einer Tabelle, Automatisierung einiger trivial oder sich wiederholende Aufgaben ... - 2011-12-05 02:17

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 .....

OOP - Objektorientierte Programmierung - 2011-12-05 02:17

In den vergangenen 35 Jahren, von Computer-Hardware-Designer haben Unternehmen entwirft Großgeräten für Laptops Mikroprozessoren auf Basis von.

Im selben Zeitraum, Entwickler haben eine Software Assembler weg vom Schreiben in bis + schreiben Programme in C oder C +. Offensichtlich Welt der Software-Entwicklung ist die steigen nicht so schnell wie die Hardware-Welt. Also die wichtige Frage hier ist, was sind die   Hardware-Entwickler, Software-Entwickler nicht?

Die Antwort auf diese Frage liegt in der Art zu arbeiten Hardware-Designer, sie Hardware verwenden Komponenten und Systeme entwickelt ihre zu bilden.

Die Wiederverwendung von Bauteilen ist auch eine Methode, um Software zu erstellen besser.Heute Software-Entwickler von vorne zu beginnen und folgen Sie den gleichen Schritten, die viele Programmierer in der Vergangenheit geführt. Die Schaffung neuer Systeme aus vorhandenen Komponenten, die bereits getestet wurden, immer mehr dazu neigt, zuverlässigen Code zu erzeugen. Darüber hinaus hat es sich als schneller und billiger.

Zwischen 1970 und 1990, entwickelt Software und Analysten objektorientierten Ansätzen für das Jahr 1994 hatten mehr als 50 Methoden von Objekten. Allerdings, nur 3 Methoden erreicht Beliebtheit:

• Rumbaugh OMT-Methode
• BOOCH'93 Booch-Methode
• Jacobson OOSE-Methode

Im Jahr 1994 Rumbaugh,   Booch und Jacobson im Jahr 1995 zusammengeschlossen, um Methoden zu entwickeln die Definition Language UML (Unified Modeling Language), die Standard definiert eine Sprache, indem sie die Vorteile von mehreren früheren.  

Heute objektorientierten Programmierung ist nicht nur Sprachen beeinflusst Programmierung, sondern auch in der Analyse und Design eines Systems, einschließlich Basis-Management-Systeme sind objektorientierte Daten wie PostgreSQL (Open-Source-DBMS-orientierte Objekte).

Alle diese Fortschritte getroffen hat dieser Technik ist aufgrund des breiten Möglichkeiten und Vorteile der strukturierten Programmierung gegen.

Einige Vorteile, die Programmierung haben auf diese Weise aus:

1.        Fördert die Wiederverwendung von Code und Erweiterung.

2.        Hier können Sie die Systeme zu schaffen komplexer.

3.        Gelingt es, beziehen sich die reale Welt.

4.        Erleichtert die Entwicklung von visuellen Programmen.

5.       Prototyping

6.        Vereinfacht Software-Entwicklung

7.Erleichtert Teamarbeit

8.        Erheblich erleichtert Software-Wartung

Dann zeigen Sie eine Liste der Sprachen der objektorientierten Programmierung:

• ActionScript
• Ada
• C + +
• C #
• VB.NET
• Visual FoxPro
• Clarion
• Delphi
• Harbour
• Eiffel
• Java
• JavaScript
• Lexikon (in Kastilisch)
• Objective-C
• Ocaml
• Oz
• Perl (unterstützt Mehrfachvererbung)
• PHP (Version 5)
• Python
• Ruby
• Smalltalk
• Magik ( SmallWorld )

Viele dieser Programmiersprachen sind nicht rein objektorientiert, sondern sind Hybride, die verbinden OOP mit anderen Paradigmen.

Wie C + + andere Sprachen, wie OOCOBOL , OOLISP , OOPROLOG undObject REXX , haben klassische Sprache geschaffen, indem Erweiterungen zur objektorientierten Programmierung.

Sofortige in Visual Studio.NET 2005 Console sauber - 2011-12-05 02:17

Na ja, nicht nur Java Mensch lebt. Gelegentlich habe ich bei der Arbeit. NET für bestimmte Projekte und einmal fand ich etwas, das mich einige Kopfschmerzen verursacht mit dem Visual Studio 2005. Dieses Tool bringt eine Konsole, wo sie die Debug-Daten, die in den Optionen deaktiviert werden, sondern können es meist hilfreich Dump. Der Nachteil dieses Werkzeugs ist, dass sie sauber, dass mit dem Befehl Console.Clear (Konsole), offenbar diese Ordnung nicht auf die Fenster unmittelbar gelten.

In diesem Projekt hatte, um einige Informationen, wenn er in den Debug-Modus war gezwungen zu zeigen, so machte ich mich auf eine Lösung zu finden. Die quick and dirty (quick and dirty), die ich bekam, war dieses:

Erstellen Sie eine Klasse, die den folgenden Code enthält:

using System; using System.Runtime.InteropServices; nsClearConsole Namespace {/ / / 
 / / / Zusammenfassende Beschreibung für ClearConsole. / / / 

 public class {private const int ClearConsole STD_OUTPUT_HANDLE = -11;Private Const Byte LEER = 32; [StructLayout (LayoutKind.Sequential)] struct koord {public kurze x, öffentliche kurze y;} [StructLayout (LayoutKind.Sequential)] struct {public kurz links SMALL_RECT, öffentliche kurze Top, öffentliche kurz mit der rechten; öffentlichen kurze Bottom;} [StructLayout (LayoutKind.Sequential)] struct {public COORD dwSize CONSOLE_SCREEN_BUFFER_INFO, öffentliche dwCursorPosition COORD; public int wAttributes, öffentliche srWindow SMALL_RECT, öffentliche dwMaximumWindowSize COORD;} [DllImport ("kernel32.dll", EntryPoint = "GetStdHandle "= SetLastError wahr] CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall) private static extern int GetStdHandle (int nStdHandle) [DllImport (" kernel32.dll ", EntryPoint =" FillConsoleOutputCharacter ", SetLastError = true, CharSet = charset.Auto, CallingConvention = CallingConvention.StdCall)] private static extern int FillConsoleOutputCharacter (int hConsoleOutput, cCharacter byte, int nLength, COORD dwWriteCoord, ref int lpNumberOfCharsWritten) [DllImport ("kernel32.dll", EntryPoint = "GetConsoleScreenBufferInfo", SetLastError = true , CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] private static extern int GetConsoleScreenBufferInfo (int hConsoleOutput, ref CONSOLE_SCREEN_BUFFER_INFO lpConsoleScreenBufferInfo) [DllImport ("kernel32.dll", EntryPoint = "SetConsoleCursorPosition", SetLastError = true, CharSet = CharSet . Auto, CallingConvention = CallingConvention.StdCall)] private static extern int SetConsoleCursorPosition (int hConsoleOutput, COORD dwCursorPosition) private int hConsoleHandle, öffentliche ClearConsole () {/ / / / TODO: Fügen Konstruktor Logik steht. / / HConsoleHandle = GetStdHandle (STD_OUTPUT_HANDLE);} public void clear () {int hWrittenChars = 0; CONSOLE_SCREEN_BUFFER_INFO CONSOLE_SCREEN_BUFFER_INFO strConsoleInfo = new ();COORD Home; Home.x = Home.y = 0; GetConsoleScreenBufferInfo (hConsoleHandle, ref strConsoleInfo) FillConsoleOutputCharacter (hConsoleHandle, leer, strConsoleInfo.dwSize.x * strConsoleInfo.dwSize.y, Haus, ref hWrittenChars) SetConsoleCursorPosition (hConsoleHandle, Home );}}} 

Später in dem Bereich, wo wir brauchen, um sauber muss die Konsole den folgenden Ausschnitt, der eine Instanz der Klasse erstellt rufen und rufen Sie dann ClearConsole Clear-Methode, die schließlich sauber ist die Konsole.

ClearConsole ClearConsole cs = new (); cs.Clear (); 

Schließlich, weil am Anfang erwähnen, dass dies nicht die sofortige Anwendung Console von Visual Studio 2005 Hack, müssen wir sagen, ein Konsolenprogramm, die in MS DOS läuft für den Hack Arbeit:

# Wenn DEBUG ConsoleEx.AllocConsole (); # endif 

Dies sollte in Form oder Klasse-Code-Projekt entwickeln wir starten werden. Schließlich sollte auch die Klasse zuweisen oder Release der Konsole.Also in einer Klasse für sich sollte den folgenden Code:

using System; using System.Runtime.InteropServices; public static class ConsoleEx {[DllImport ("kernel32.dll"] public static extern Boolean AllocConsole (); [DllImport ("kernel32.dll")] public static extern Boolean FreeConsole () ;} 

Zu dieser Zeit genug, um eine MS-DOS zum Debuggen Zeit, dass wir sauber Konsole. Hier ist also falls jemand sie braucht. Das Beispiel ist in C # aber ich glaube, dass diese fließend in Visual Basic. NET anpassen können. Die Lösung wurde folgende genommen teilweise aus dem Microsoft KB .

Mono-Projekt, OpenSource Implementierung der Plattform. NET - 2011-12-05 02:17

Anfang 2001 die Firma Ximian durch die Hand des Miguel de Icaza (Mexican freie Software-Entwickler. Unter seinen Beiträgen ist die Grundlage für das GNOME-Projekt, Treiber-Datei oder Dateien der Midnight Commander, Gnumeric, der Bonobo-Komponente Modell ) treibt das Mono-Projekt als Open Source-Implementierung von Microsoft plataforma.Net und ECMA-Standard. Ziel war es, Linux bieten einen kostenlosen Software-Plattform für Förderung der Entwicklung von Anwendungen.

Im Januar 2003 den Kauf von Novell Ximian und gibt seine Unterstützung für Miguel de Icaza zu fahren Sie mit dem Projekt Mono, beschäftigt derzeit etwa 20 Ingenieure von Novell und haben dazu beigetragen, mehr als 300 Freiwilligen.

C # ist Teil der Plattform.Net-Pakete, aus denen sich die Verteilung der Mono-Plattform verfügt über eine C #-Compiler, eine virtuelle Maschine (die Ausführung von Anwendungen erlaubt), und eine Reihe von Klassenbibliotheken, die Tausende von Funktionen bieten.

Mono-Anwendungen können in mehreren Programmiersprachen, darunter auch Python, Object Pascal, Nermele und C # geschrieben werden. Sobald schriftliche Anträge sind in CIL (Common Intermediate Language), die ein Zwischenprodukt Sprache ist nicht spezifisch für jede Architektur übersetzt. Einmal in CIL Umsetzung übersetzt die spezifische Sprache der endgültigen Architektur, die ausgeführt werden zusammengestellt. Dieses System kann für ein einzelnes Programm verteilen Programm für alle Architekturen anstelle eines spezifischen Programms für jede Plattform. Mono bietet jetzt die Werkzeuge, um Anwendungen für Linux, Solaris, Windows, Mac / OS und IBM-Mainframes zu bauen. Im Gegensatz zu herkömmlichen Programmen, die auf dem System laufen direkt, das Mono-Plattform laufenden Programme zur Durchführung einer kontrollierten Umgebung als Virtual Machine bekannt

Mono bietet die notwendigen Funktionen, um Web-Services-Technologie, XML, SOAP, ASP.NET und Remoting und den Zugang zu Datenbanken umfasst über ADO.NET, geben Oracle, MySQL, DB2, SQL Server zu erstellen, oder Progress. Mit diesen Bibliotheken tragen kann Windows oder Dienstleistungen im eigenen schriftlich zu können Apache Webserver Einsatz entwickelt. Für die Entwicklung von Benutzeroberflächen für Client-Anwendungen sind mehrere Optionen. Einerseits ist es bietet eine Open Source Implementierung von System.Windows.Forms (die Option von Microsoft), um die Entwicklungen im Vorfeld gemacht. Net unter Windows kann auf anderen Plattformen wie Linux oder Mac OS ausgeführt werden. GTK # bietet auch eine Bibliothek, die alle Funktionen des Gnome grafische Umgebung, die Cross-Plattform-Anwendungen ermöglicht macht.

Ich persönlich empfehle zwei IDE ist kostenlos, um mit Mono arbeiten:

• MonoDevelop auf Linux
• In Windows SharpDevelop
  

SSTab Kontrolle gehen eine Visual Basic 6.0 - 2011-12-05 02:17

An einem gewissen Punkt in unserem Leben als Entwickler von Desktop-Anwendungen haben wir) die Notwendigkeit gesehen, um Informationen über TABS (Frau SSTab Control Visual Basic 6.0, aber wir hatten einige Schwierigkeiten ein-oder ausschalten (wir haben durch Registerkarte Registerkarte), gefolgt von Daher noch einmal diese Situation zu vermeiden, hier sind ein Funktionstyp in MS Visual Basic 6.0, die aktiviert oder deaktiviert ein SSTab-Steuerelement.

Diese Funktion ist Activar_Desactivar_Pestanas genannt, und erhält als Parameter Bring (zu aktivieren Tabs) oder False (deaktivieren Tabs) und den Namen der Registerkarte Steuerung.

Public Sub Activar_Desactivar_Pestanas (Enable As Boolean, Pestana Als SSTab)

Für i = 0 To Pestana.Tabs - 1

Wenn Enable Dann

Pestana.TabEnabled (i) = True

Schmuck

Pestana.TabEnabled (i) = False

        End If

Weiter

End Sub

Mit diesem Feature kann ein und verwenden Sie ein SSTab-Steuerelement mit einer beliebigen Anzahl von und aktivieren oder deaktivieren sie in Sekunden, nicht mehr zu kontrollieren schreiben viele Zeilen Code zu aktivieren oder zu deaktivieren, wie ein in.

Visual Basic 6.0-Tipps: Füllen Sie ein ListView - 2011-12-05 02:17

Wenn ein Programmierer eine Anwendung (Desktop-oder Web) sollte der Endbenutzer denken entwickelt, ist es, bestimmte Windows gewöhnt (Interface), eine Form von Arbeit (z. B. Steuerberater die ENTER viel mehr als die Maus verwenden), dann die Grund ist, dass es einige Funktionen, die Endkunden zu sehen gewohnt sind, umfassen.

In Microsoft Excel 2003 finden wir im folgenden Fenster die XXX, wenn Sie die rechte Maustaste drücken / Geben Sie den Namen eines Arbeitsblatts zeigt. Also in diesem Beispiel habe ich simuliert dieses Fenster.

Dieses Beispiel ist Teil eines Datenbanksystems. Die Idee ist, dass der Benutzer auswählen kann: DOC. Andere (mit Dokumenten zu arbeiten), Kardex (um zu sehen, die Bewegung eines Artikels) oder das Element Master (für eigene Datenelemente), einmal gewählt, drücken Sie die Taste OK.

In diesem Beispiel wird Microsoft Visual Basic 6.0-Programmiersprache und vor allem die folgenden Steuerelemente:
1 ListView (zur Darstellung von Bildern.)
1 ImageList (zum Speichern der Bilder).

Source Code für AUSFÜLLEN ListView
Private Sub Form_Load ()
Dim As ColumnHeader column_header
Als ListItem Dim list_item
Value = ""
Land = ""
"Erstellen Sie die Spaltenüberschriften.
Column_header = ListView1 September. _
ColumnHeaders.Add (,, "Abbrev", _
TextWidth ("sonstigen Unterlagen"))
Column_header = ListView1 September. _
ColumnHeaders.Add (,, "Titel", _
TextWidth (KARDEX "))
Column_header = ListView1 September. _
ColumnHeaders.Add (,, "ISBN", _
TextWidth ("Master of ARTIKEL"))
Column_header = ListView1 September. _
ColumnHeaders.Add (,, "ISBN", _
TextWidth ("EXIT"))
ListView1.Icons = imgLarge
September ListView1.ListItems.Add list_item = (,, "DOC. DIVERS)
list_item.Icon = 1
list_item.SmallIcon = 1
list_item.SubItems (1) = "Ready-to-Run Visual Basic Algorithms"
list_item.SubItems (2) = "0-471-24268-3"
September ListView1.ListItems.Add list_item = (,, "KARDEX)
list_item.Icon = 2
list_item.SmallIcon = 2
list_item.SubItems (1) = "Visual Basic Graphics Programming"
list_item.SubItems (2) = "0-471-15533-0"
September ListView1.ListItems.Add list_item = (,, "Item Master")
list_item.Icon = 3
list_item.SmallIcon = 3
list_item.SubItems (1) = "Custom Controls"
list_item.SubItems (2) = "0-471-24267-5"
September ListView1.ListItems.Add list_item = (,, "EXIT")
list_item.Icon = 4
list_item.SmallIcon = 4
list_item.SubItems (1) = "Advanced Visual"
list_item.SubItems (2) = "0-471-18881-6"
End Sub

SOURCE ListView Code für das Element DOWN

Private Sub cmdAceptar_Click ()
On Error GoTo e

Wenn Me.ListView1.ListItems (3). Ausgewählte Dann
frmCatArticulos.Show 1
End If
'......
e:
Resume Next
End Sub

Visual Basic-Tipps, den Aufbau eines dynamischen WHERE, Visual Basic - 2011-12-05 02:17

Die Idee dieses Artikels ist zu zeigen, wie Klausel bauen eine dynamische WHERE, wenn Sie also) haben ein Formular mit 2 Textfelder (NoCliente, Kundenname) und ein Befehlsschaltfläche Filter (Bestellung auswählen, um die Abfrage auszuführen, dann, wenn Benutzer eingegeben etwas in eines der Felder in der 'wo nur fragen für ein Feld ändern, wenn er das schrieb in beide Textfelder in "wo dann beide Camps wird gebeten durch.

Dieser Quellcode ist von links nach dynamischen Aufbau der "wo".

Private Sub cmdFilter_Click ()

    With Me

        Filter = ""

        Wenn. TxtNoCliente.Text <> "" Then

            Filter = "client =" &. TxtNoCliente.Text

        End If

        Wenn. TxtNombre.Text <> "" Then

            Wenn Filter <> "" Then

                Filter = Filter & "AND name LIKE '" &. TxtNombre.Text & "%"

               Schmuck

                  Filter = Filter & "name LIKE '" &. TxtNombre.Text & "%"

            End If

        End If

    End With

    "Senden an Abfrage der

End Sub

Schreibe eine ganze Spalte in einem FlexGo Frau Visual Basic 6.0 - 2011-12-05 02:17

Dieses Beispiel ist nützlich, wenn beispielsweise wollen die Zellen in einer Spalte für einen bestimmten Daten suchen, addieren oder subtrahieren Werte enthalten besuchen. Ich habe Rechnung verwendet bei der Entwicklung von Billing-Systemen zum Zeitpunkt der will die, um die Zwischensumme.

Diese Funktion ist SumarSubTotales Namen, gibt einen Double-Wert (das Ergebnis der Summe), erhält er 2 Parameter (der Name einer Flex die Spalte, wird die Reise und eine Zahl (col gibt), die ist, dass hinzugefügt werden.

Funktion SumarSubTotales (flex Als MSFlexGrid, col As Integer) As Double

  Mit Flex

    i = 2 To. Für Reihen - 1

        SubT = SubT + TextMatrix. (-. Zeilen i, col)

    Next i

  End With

  SumarSubTotales = Round (SubT, 2)

End Function

Java Tipps: Klasse bis Differenz zwischen zwei Daten berechnen - 2011-12-05 02:17

Diese Klasse hat seinen Freund Armando Alaniz gegeben. Ist eine Klasse Unterschied zwischen zwei Terminen und ganz ausdrücklich in ihrer Anwendung per se zu berechnen. Dann wird der Code:

Import java.util.Calendar;
Import java.util.Date;

/ **
* @ Autor Armando J. Alaniz Aragon
* @ Seit 20090312
* @ Version 1.0
* /
Dateutil {public final class
public static final int YEAR = 0;
public static final int Monat = 1;

private static int getDateDiffInYears (Datum startDate, Datum endDate) {
getDateDiffInMonths return (startDate, endDate) / 12;
}

private static int getDateDiffInMonths (Datum startDate, Datum endDate) {
StartCal Kalender = Calendar.getInstance ();
EndCal Kalender = Calendar.getInstance ();
StartY int = -1, startMonth = -1;
endYear int = -1, endMonth = -1;
int Monate = 0;
int = 1;

if (startDate.after (endDate)) {
Faktor = -1;
startCal.setTime (endDate);
endCal.setTime (startDate);
Else {}
startCal.setTime (startDate);
endCal.setTime (endDate);
}

StartY = startCal.get (Calendar.YEAR)
startMonth = startCal.get (Calendar.MONTH) + 1;
endYear = endCal.get (Calendar.YEAR)
endMonth = endCal.get (Calendar.MONTH) + 1;

if (StartY == endYear) {
Monate = endMonth - startMonth;
Else {}
Monate = 12 - startMonth;
Monate + = endMonth;
- EndYear;
if (endYear - StartY> 0) {
Monate + = (endYear - StartY) * 12;
}
}
Monate *= Faktor;
Rückkehr Monate;
}

public static int getDateDiff (int Feld Datum startDate, Datum endDate) {
if (Feld == JAHR) {
getDateDiffInYears return (startDate, endDate);
} Else if (Feld MONAT ==) {
getDateDiffInMonths return (startDate, endDate);
Else {}
return 0;
}
}
}

Advertising

Advertising

Related Categories:

• Web-Programmierung
• Visual Basic 6.0
• Java-Programmierung
• PHP-Programmierung
• Python-Programmierung
• Qt-Programmierung
• Design Patterns
• . NET-Programmierung

Health and Living:

• Side Effects
• Asacol Side Effects
• Hotels and Resorts
• Travel and Vacation

Football:

• Live Match
• Worldcup
• UEFA Euro 2012
• Copa America 2015
• Real Madrid vs. Barcelona

Other Sports:

• Con Efecto
• Sports Motor
• Australian Open 2012
• Roland Garros 2012
• Olympics Live 2012
• Olympics TV 2012

Technology:

• Motor Review
• Tech News
• Mobile News
• Apple News

Entertainment:

• Play HQ
• Gossip Today
• Movie Today