Insert ข้อมูลลง SQL เฉพาะ Row ที่มีข้อมูล

[tnos11]

ขออนุญาติสอบถามครับ มือใหม่มากๆๆ

ผมต้องการ Insert data ลง SQL จาก Code ด้านล่าง
ซึ่งใช้งานได้ปกติแต่ติดตรงที่บาง row ที่ไม่มีข้อมูลมันก็ insert ลงให้ครับ

ไม่แน่ใจต้องเช็ต condition ยังไงครับให้มันเลือกแค่ row ที่มีข้อมูล จากที่เช็ต range ไว้คือ A2:B200 จริงๆมีข้อมูลอยู่ถึงแค่ A13:B13 ครับ

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

ขอบคุณล่วงหน้าครับ

[snasui]

ปรับ Code เป็นด้านล่างครับ

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

[tnos11]

ปรับ Code เป็นด้านล่างครับ

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

ขอบคุณมากครับผม Code ใช้งานได้ตามต้องเลยครับ

[tnos11]

จากสูตรด้านบนเราสามารถให้เช็คได้ไหมครับว่าใน Database มีข้อมูลที่ซ้ำกันไหมจาก CHECKTIME ที่ลงไป duplicated รึเปล่าโดยใช้ PIN เป็น referrence ในการเช็คครับ

[snasui]

สามารถเช็คได้แต่ไม่ใช่ตาม Code ด้านบนครับ

ต้องเขียน SQL ที่ซับซ้อนกว่านั้นความซับซ้อนจะขึ้นอยู่กับว่าเช็คแล้วต้องการจะทำสิ่งใด ถ้าเช็คว่ามีแล้วไม่ต้อง Insert ก็จะต้องเขียนอีกแบบยกตัวอย่างเช่นตาม Link นี้ครับ https://stackoverflow.com/questions/209 ... not-exists