投稿日 | : 2003/04/09(Wed) 13:06 |
投稿者 | : zkei |
Eメール | : |
URL | : |
タイトル | : MDBパラメータについての問題の説明 |
A221さんと匿名1412さん、返信、どうも ありがとうございました。
先の問題は曖昧がありました。ごめんください。
先の問題は次のような問題です。
標準モジュール(Public.bas)は次のような
Public cnn As New ADODB.Connection
Public cmd As New ADODB.Command
Public rst As New ADODB.Recordset
Public Sub loaddata()
If cnn.State = 1 Then
cnn.Close
End If
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DSN=VBexercise1"
cnn.Open
If rst.State = 1 Then
rst.Close
End If
If rst.State = 0 Then
'データベースの連続
rst.Open "vbexercise", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
End If
End Sub
検索関数は次のような
Private Sub Command1_Click()
Dim Sql As String
loaddata
Sql1 = " SELECT distinct 調査年,調査月,調査者" & _
" From title" & _
" where 調査年 = 2003" & _
" and 調査月 = 03"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandText = gSql1
Set rst = cmd.Execute
If rst.BOF = rst.EOF Then
Else
Text1.Text = rst.Fields("調査年").Value
Text2.Text = rst.Fields("調査月").Value
Text3.Text = rst.Fields("調査者").Value
End If
End Sub
「commandオブジェクトのcommandテキストが設定されていません。」というエラーメセージが表示しました。
教えてください。よろしくお願いします。