Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
Naui
Newbie
Newbie

Anmeldedatum: 04.01.2010
Beiträge: 3
Doppelte Einträg bei SQL
Verfasst am: 22.02.2010, 09:42
Hallo liebe User,

ich habe folgendes Problem:
und zwar will ich in eine Datei die auf einer AS400 liegt schreiben.

Zum Aufbau meines kleinen Programms:

Ich habe ein Flexgrid, mit einer CSV gefüllt (zb. Name, Vorname, Beruf, Telenr etc.)
Dann wähle ich per Combobox aus wo diese Felder in die Datei auf der AS400 hinsollen (zb. Name in AS400 Feld SYSNAME, Beruf in SYSBERUF)

Funktioniert auch wunderbar, nur wie bekomme ich es hin doppelte Einträge zu verhindern?Bzw. das wenn die Schlüsselfelder (Name & Vorname)
der Datensatz geupdatet wird ( zb. Name: Daniel , Nachname: Muster ; beim erste speichern nur die beiden Sachen angegeben, beim erneuten Speichern
soll noch Beruf und Telenr dann zu diesem ersten Satz hinzugespeichert werden)

Ist das möglich ? Wenn ja wie, komm einfach auf keine Lösung !

Hier mal ein Teil meines Programmcodes:

Code:

Dim rowcount        As Integer
Dim listcount       As Integer
Dim listmax         As Integer
Dim ColMax          As Integer
Dim restCount       As Integer
Dim restMax         As Integer
Dim comboxCount     As Integer
Dim Output()        As String
Dim rest(0 To 2000) As String



AS400Connection

rs.Open "select * from " & Form1.txtBib.Text, cn, adOpenStatic, adLockOptimistic, adCmdText

listmax = combox(0).listcount
ColMax = MSFlexGrid1.Rows - 2

ff = FreeFile

Open CommonDialog1.FileName For Input As #ff
 
If Not EOF(ff) Then
    Line Input #ff, data
        Output = Split(data, ";")
        rowcount = UBound(Output) + 1
        MSFlexGrid1.Rows = rowcount + 1
    Seek 1, 1
End If

Do While Not EOF(ff)
    Line Input #ff, data
    Output = Split(data, ";")


   

 
   rs.Open "select * from " & Form1.txtBib.Text, cn, adOpenStatic, adLockOptimistic, adCmdText
     cn.BeginTrans

   rs.addnew

   Do
          Do Until comboxCount = ColMax + 1   
              If combox(comboxCount).Text = combox(comboxCount).List(listcount)  Then
                           rs.Fields(listcount).Value = Output(comboxCount)         
                   comboxCount = comboxCount + 1
          Loop
        comboxCount = 0
       listcount = listcount + 1
   Loop Until listcount = listmax
    rs.Update
    cn.CommitTrans
    rs.Close
Loop
Close #ff
End Sub


mir freundlichen grüßen

Naui
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: sql, speichern, select

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 868 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1256s ][ Queries: 81 (0.0216s) ][ GZIP on - Debug on ]