Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String
On Error Goto errorHandler
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
result.AddRow
Call result.SetValue("LASTNAME", _
Inputbox$("Last name?", "New student", "Rodriguez"))
Call result.SetValue("FIRSTNAME", _
Inputbox$("First name?", "New student", "Jorges"))
Call result.SetValue("STUDENT_NO", _
Cint(Inputbox$("Student number?", "New student",_
"9999")))
Call result.SetValue("ADDRESS", _
Inputbox$("Address?", "New student", "11 Rogers St."))
Call result.SetValue("CITY", _
Inputbox$("City?", "New student", "Cambridge"))
Call result.SetValue("STATE", _
Inputbox$("State?", "New student", "MA"))
Call result.SetValue("ZIP", _
Inputbox$("Zip?", "New student", "02142"))
Call result.SetValue("CR_TO_DATE", _
Cint(Inputbox$("Credits to date?", "New student", "0")))
result.UpdateRow
result.Close(DB_CLOSE)
result.Execute
msg = "Student names:"& Chr(10)
Do
result.NextRow
msg = msg & Chr(10)
For i = 1 To result.NumColumns
msg = msg & " " & result.GetValue(i)
Next
Loop Until result.IsEndOfData
Messagebox msg,, "Student data"
result.Close(DB_CLOSE)
con.Disconnect
Exit Sub
errorHandler:
Messagebox result.GetExtendedErrorMessage,, _
result.GetErrorMessage
Exit Sub
End Sub

関連項目

Close メソッド