心得筆記

Option Compare Database

Public Sub test()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim str As String

Set con = CurrentProject.Connection --> 老是忘記這個語法
i = 0
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
sql = "select * from address"
rs.Open sql, con

Do
    If IsNull(rs(2)) Then
        str = ""
    Else
        str = rs(2)
    End If
    str = "insert into t1 values('" + fill(str) + "','" + Format(rs(1), "0000000") + "')"
    Debug.Print str
    DoCmd.RunSQL str
    rs.MoveNext --> 沒想到 office 到 2003 了, 忘了這句還是會死當 Orz
    DoEvents 
Loop While Not (rs.EOF)
End Sub

Public Function fill(str) As String
Dim s As String
Dim i As Integer
Dim l As Integer

s = Replace(str, " ", "")
l = Len(s)

For i = l To 60
    s = s + "　" --> 這是全型空白
Next

fill = s
End Function