Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()

    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.Open "Driver={SQL Server};Server=.;Database=test123;Uid=hmm123;Pwd=hmm123;"
    
    Dim Last_Row As Long
    Last_Row = Range("A" & Rows.Count).End(xlUp).row
    Dim rng As Range: Set rng = Application.Range("A2:B'200'")
    Dim row As Range
    'Trim(TextBox1.Value & vbNullString) = vbNullString'
    For Each row In rng.Rows
        PIN = row.Cells(1).Value
        CHECKTIME = CDbl(row.Cells(2).Value)
        Sql = "Insert into TEST3 values('" & PIN & "'," & CHECKTIME & ")"
        con.Execute Sql
    Next row
    
    con.Close
    MsgBox "Import Completed"
End Sub

Code: Select all

'Other code
    For Each row In rng.Rows
    	if row.cells(1).value <> "" then
            PIN = row.Cells(1).Value
            CHECKTIME = CDbl(row.Cells(2).Value)
            Sql = "Insert into TEST3 values('" & PIN & "'," & CHECKTIME & ")"
            con.Execute Sql
        end if
    Next row
'Other code