[VB] Connecten naar database, bug..

[Verwijderd]

Hoi,

Ik heb hier een visual basic script gemaakt dat connectie maakt met een database. En daarna gegevens doorstuurd. Ik heb echter een deel van het script goed nagekeken, maar ik kan de fout niet vinden..

code:

Sub VersieInvullen()
    frmInfoInvullen.Show
End Sub

Sub ConnectDatabase()

    Dim qt As QueryTable
    Dim DSN As Stri
ng, UID As String, PWD As String
    Dim DBS As String, SRV As String, Conn As String
    Dim i As Integer, x As Integer
    
    DSN = "Multivers for Windows"
    UID = "****"
    PWD = "****"
    DBS = Range("DBS").Value
    SRV = Range("SVR").Value
    
    Conn = "ODBC;DSN=" & DSN & ";UID=" & UID & ";PWD=" & PWD & _
           ";DB=" & DBS & ";SRVR=" & SRV
    
    i = ActiveWorkbook.Sheets.Count
    For x = 1 To i
        For Each qt In Worksheets(x).QueryTables
            qt.Connection = Conn
        Next qt
    Next x

    MsgBox "Database " & DBS & " is geconnect!", vbOKOnly, "Klaar!"
    
End Sub

Wat gaat er mis?

In het bestand KOP, word dit aangemaakt; mits alles goed gaat:

1,1129000090,1011,-58.31,-9.31,00038923,,,,,,,,""
2,1129000090,1052,58.31,9.31,00038925,,,,,,,,""

Echter elke keer zet hij op het einde dit erachter, net of hij in een loop hangt...


78,1129000090,,,,,,,,,,,,""
79,1129000090,,,,,,,,,,,,""
80,1129000090,,,,,,,,,,,,""
81,1129000090,,,,,,,,,,,,""
82,1129000090,,,,,,,,,,,,""
83,1129000090,,,,,,,,,,,,""
84,1129000090,,,,,,,,,,,,""
85,1129000090,,,,,,,,,,,,""
86,1129000090,,,,,,,,,,,,""

Ik heb echter van alles geprobeert, maar zonder enig resultaat.. iemand?

[whoami]

Dit is gewoon een kwestie van je software te debuggen, en zien waar het juist mis loopt.
Tip: gebruik de mogelijkheden van je IDE om je programma regel voor regel uit te voeren (breakpoint), en bekijk wat er precies gebeurt.

Verder zie ik ook geen relevante code.

[Janoz]

Het enige dat ik me kan bedenken is dat er in je workbook nog wat lege regels aan het einde staan die toch meegenomen worden.

Hmm, Whoami was me voor...

[ Voor 10% gewijzigd door Janoz op 21-08-2006 10:12 ]