Anddyy

Hi Leute, ich will eine Verbindung zur einer bestimmten Datenbank herstellen..?? Ich hab es schon geschafft eine Verbindung zum Server herzustellen aber ich möchte auf diesem Server eine bestimmte Datenbank ansprechen nur ich weiß leider nicht wie ich das anstellen soll...???? Wäre über jede Hilfe Dankbar...

Hi Leute, Ich hab ein Problem und zwar soll ich das was in einer Textbox reingeschrieben wird als Xml abgespeichert werden. Vorher habe ich es im Editor abgespeichert.. Ich habe nun überhaupt keine Ahnung wie ich das anstellen soll...??? Ich habe folgende Textboxen Name, Nachname, Straße Im Editor sah das so aus: Peter Hans Eichbaumweg und nun soll es als xml gespeichert werden ich glaube das es so richtig ist <MainNode> <Peson> <Name="Peter"/> <Nachname="Hans"/> <Straße="Eichbaumweg"/> </Person> (und hier soll dann die nächste Person aufgelistet sein...) <Peson> <Name="....."/> <Nachname="......."/> <Straße="..........."/> </Person> </MainNode> nur leider fehlt mir der Code wie ich es abspeicher soll.... Ich würde mich sehr freuen über einige Anregungen Vielen dank schonmal im Vorraus Andy

Hi, upps hast recht hab mich vertan ja es soll eine Sortierung des FlexGrids werden.. Ich denke ich habe es fast gelöst nur leider kann ich mit dem Code nur Alphabetisch sortieren ….. Me.VSFlexGrid1.Select 1, 0 Me.VSFlexGrid1.Sort = flexSortGenericAscending

Hi, Danke für die Vorlage aber habe mein Problemm Schon gelöst... Er liest jetzt jede Zeile einzelnt ein. Hier mein Codde: Private Sub Form_Load() Dim DateiName As String, DateiNr As Integer Dim Temp As String DateiName = "C:Liesmich.txt" DateiNr = FreeFile Open DateiName For Input As #DateiNr Dim col As Long col = -1 Do While Not EOF(DateiNr) Line Input #DateiNr, Temp If col = 2 Then col = -1 col = col + 1 With Me.VSFlexGrid1 .Cell(flexcpAlignment, .Rows - 1, 0) = flexAlignCenterCenter .Cell(flexcpAlignment, .Rows - 1, 1) = flexAlignCenterCenter .Cell(flexcpAlignment, .Rows - 1, 2) = flexAlignCenterCenter If col = 0 Then .AddItem "" Me.VSFlexGrid1.Cell(flexcpText, .Rows - 1, col) = Temp End With Loop Close DateiNr End Sub Hoffe du kannst auch was damit anfangen...??? Habe aber schon wieder ein neues Problemm und zwar soll ich in einem VSFlesGrid eine Tabelle erstellen wo viele Zahlen drin stehen und da soll die Gröste Zahl am Anfang des VSFlexGrid stehen. Und fast das gleich soll bei meiner Zweiten aufgabe sein.. Er soll sich die Kleinste Zahl sich im VSFleGrid nemmen und dann einfach weiter Zählen. Zum Beispiel du hast die Zahlen 10 30 55 und die 23 dann müsste es so aussehen: 10 dann ist die nächst nähere Zahl die 30, 23 und die 55. So sollte es dann am schluss aussehen hoffe du kannst mir weiter helfen...??? MfG Andy

Hi, vielen dank für deine Nachricht hast mir echt weiter geholfen. Habe es geschaft es zu speichern( Jede Zeile). Hier mein Code: Private Sub Comsave_Click() Dim DateiName As String, Temp As String Dim DateiNr As Integer DateiName = "C:Liesmich.txt" DateiNr = FreeFile Open DateiName For Output As #DateiNr With Me.VSFlexGrid1 For i = 1 To .Rows - 1 Print #DateiNr, VSFlexGrid1.Cell(flexcpText, i, 0) Print #DateiNr, VSFlexGrid1.Cell(flexcpText, i, 1) Print #DateiNr, VSFlexGrid1.Cell(flexcpText, i, 2) Next End With Close #DateiNr End Sub Aber das Einlesen klappt nicht könntest du mir wieder ein Paar Anregungen geben...???? Wär echt super....vielen dank schon mal Habe es so probiert aber klapt leider nicht.... Hier mein Code: Private Sub Command1_Click() Dim DateiName As String, DateiNr As Integer Dim Temp As String DateiName = "C:Liesmich.txt" DateiNr = FreeFile Open DateiName For Input As #DateiNr Do While Not EOF(DateiNr) Line Input #DateiNr, Temp With Me.VSFlexGrid1 For i = 1 To .Rows - 1 Me.VSFlexGrid1.Cell(flexcpText, i, 0) = Temp Me.VSFlexGrid1.Cell(flexcpText, i, 1) = Temp Me.VSFlexGrid1.Cell(flexcpText, i, 2) = Temp Next End With Loop Close DateiNr End Sub

Hi Leute, brauch dringend Hilfe!!! Habe angefangen mit Visual Basic 6 zu Programmieren und nun habe ich die Aufgabe bekommen das was in dem FlexGrid steht zu speichern und es dann Automatisch wieder anzeigen zu lassen wenn das Programm neu gestartet wurde....??? Habe es schon geschaft das es in eine TextDatei speichert wurde aber nur eine Zeile und die anderen speichert er garnicht... Private Sub Comsave_Click() Dim Dateiname As String, DateiNr As Integer Dim Temp As String Dateiname = "Liesmich.txt" DateiNr = FreeFile Open Dateiname For Output As DateiNr Print #DateiNr, VSFlexGrid1.Cell(flexcpText, 1, 0) Print #DateiNr, VSFlexGrid1.Cell(flexcpText, 1, 1) Print #DateiNr, VSFlexGrid1.Cell(flexcpText, 1, 2) Close DateiNr End Sub Und das automatische Speichern wenn er das Programm wieder neu öffnet funktioniert auch nicht...??? Würde mich freuen über Beispiele oder über Lösungsmöglichkeiten. Ich bedanke mich hiermit schon im Vorraus Mfg Andy