VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/09(Wed) 13:06 |
| 投稿者 | ： zkei |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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テキストが設定されていません。」というエラーメセージが表示しました。
教えてください。よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）