VBA เพิ่มสถานบริการใน jhcis โดย ms-access 2003 ให้เปลี่ยนชื่อไฟล์สถานพยาบาลเป็น hospitals.txt แล้วใส่ใน โฟล์เดอร์เดียวกันกับไฟล์ access นี้
ในโมดูลใส่
Public Function GetDBPath() As String
Dim strFullPath As String
Dim i As Integer
strFullPath = CurrentDb().Name
For i = Len(strFullPath) To 1 Step -1
If Mid(strFullPath, i, 1) = "\" Then
GetDBPath = Left(strFullPath, i)
Exit For
End If
Next
End Function
และในฟอร์มใส่
Private Sub Form_Load()
CodeDb.Execute "INSERT INTO chospital ( hoscode, hosname, provcode, distcode, subdistcode, mu ) SELECT hospitals.F1, hospitals.F2, hospitals.F4," & _
"hospitals.F5, hospitals.F6, hospitals.F7 FROM [Text;HDR=NO;FMT=Delimited(,);CharacterSet=874;Database=" & _
GetDBPath & " ;].hospitals.TXT AS hospitals LEFT JOIN chospital ON hospitals.F1=chospital.hoscode WHERE (((chospital.hoscode) Is Null));"
End Sub
