คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
http://www.snasui.com/
ไฟล์ที่มีนามสกุลเป็น .sql เข้าใจว่าสามารถสร้างขึ้นมาได้ด้วย VBA เหมือนกันการสร้าง Text File ทั่ว ๆ ไปเพียงแต่กำหนดให้มีนามสกุลเป็น .sql ครับ
Code: Select all
Private Sub CommandButton3_Click()
'creates the file
Dim myfilepath As String
myfilepath = "C:\mysql.sql"
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim myFile As Object
Set myFile = fso.createtextfile(myfilepath)
'writes stuff to the file
With myFile
Dim sqlstr As String
sqlstr = "INSERT INTO checktime ("
Dim colcount As Integer
colcount = 1
With ThisWorkbook.Sheets("Summary")
Do Until .Cells(1, colcount).Value = ""
sqlstr = sqlstr & "'" & .Cells(1, colcount).Value & "',"
colcount = colcount + 1
Loop
sqlstr = Left(sqlstr, Len(sqlstr) - 1) & ") VALUES " & Chr(13) & "("
Dim rCount As Integer
rCount = 1
Do Until .Cells(rCount, 1).Value = ""
colcount = 1
Do Until .Cells(1, colcount).Value = ""
If IsNumeric(.Cells(rCount, colcount).Value) Then
sqlstr = sqlstr & "" & .Cells(rCount, colcount).Value & _
","
ElseIf IsDate(.Cells(rCount, colcount).Value) Then
sqlstr = sqlstr & "" & .Cells(rCount, colcount).Value & _
","
Else
sqlstr = sqlstr & "'" & .Cells(rCount, colcount).Value & _
"',"
End If
colcount = colcount + 1
Loop
sqlstr = Left(sqlstr, Len(sqlstr) - 1) & ")," & Chr(13)
rCount = rCount + 1
Loop
sqlstr = Left(sqlstr, Len(sqlstr) - 2)
End With
.writeline sqlstr
End With
'closes the file
myFile.Close
Set myFile = Nothing
End Sub
ขอโทษด้วยครับ แนบไฟล์ให้แล้วนะครับsnasui wrote: Wed Jul 22, 2020 8:33 pm
ยังไม่ค่อยกระจ่างในเรื่องของการให้รันตามวันที่ กรุณาอธิบายเพิ่มเติม ถ้าต้องการกำหนดวันเวลารันจะต้องทำงาน Task Shedule ของ Windows แม้จะกำหนดให้รันตามค่าใน Data ก็ต้องมีตัวกำหนดให้โปรแกรมทำงานเพื่อจะเช็คว่าข้อมูลไหนพร้อมที่จะรัน เช่นนี้เป็นต้นครับ
tnos11 wrote: Wed Jul 22, 2020 4:00 pm 1.เราสามารถปรับเปลี่ยน Format ของวันที่ตาม Format ที่ต้องการได้ไหมครับ จากที่ได้ export ออกมาเป็น .sql จะได้เป็น
INSERT INTO checktime ('PIN','CHECKTIME') VALUES
('PIN','CHECKTIME'),
17,5/14/2020 3:32:05 PM),
16,5/14/2020 3:32:00 PM),
5,5/14/2020 3:30:51 PM)
กำหนด Format ให้กับวันที่ได้ด้วยฟังก์ชั่น Application.Text ตามด้านล่างครับCode: Select all
'Other code
Do Until .Cells(1, colcount).Value = ""
If IsNumeric(.Cells(rCount, colcount).Value) Then
sqlstr = sqlstr & "" & .Cells(rCount, colcount).Value & _
","
ElseIf IsDate(.Cells(rCount, colcount).Value) Then
sqlstr = sqlstr & "" & Application.Text( _
.Cells(rCount, colcount).Value, "dd/mm/yyyy hh:mm") & _
","
Else
sqlstr = sqlstr & "'" & .Cells(rCount, colcount).Value & _
"',"
End If
colcount = colcount + 1
Loop
'Other code
การเปลี่ยนชื่อทำได้ 2 แบบ คือเปลี่ยนในขั้นตอนกำหนดตัวแปร และเปลี่ยนทีหลังtnos11 wrote: Thu Jul 23, 2020 2:57 pm 2.สามารถกำหนดชื่อไฟล์ที่จะ export ออกมาจาก "myfilepath = "C:\mysql.sql" ให้ run ตามวันที่ของ Data ใน Column "CHECKTIME" ได้ไหมครับและปรับ Format เป็น yyyymmdd.sql
Code: Select all
Private Sub CommandButton3_Click()
'creates the file
Dim myfilepath As String
myfilepath = "C:\mysql" & _
Application.Text(Worksheets("Summary").Range("b2").Value, "yyyymmdd") & ".sql"
'Other code