- 2004-03-17 (水) 0:39
- デジモノ
ADO で SQL Server に接続するにはこんな感じにすればええらしいで
Private Sub adoFunction()
‘ ADO でエラー処理を行う
On Error GoTo ErrorADODB:
Dim cnn As New ADODB.Connection
cnn.Open “Provider=SQLOLEDB;Data Source=(local);” & _
“Initial Catalog=pubs;”, “sa”, “”
‘ ＤＢ処理 …
‘
‘
‘
Exit Sub
ErrorADODB:
‘ ここからエラー処理部分
Dim strMessage As String
If cnn.Errors.Count > 0 Then
‘ データベース処理関連のエラーを取得
Dim errX As ADODB.Error
For Each errX In cnn.Errors
strMessage = strMessage & errX.Description & vbCrLf
Next
Else
‘ 通常のエラーメッセージを取得
strMessage = Err.Description
End If
MsgBox strMessage, vbExclamation
End Sub
- Newer: グランジ != ニルバーナ
- Older: くいしんぼ
