VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/09(Wed) 11:36 |
| 投稿者 | ： zkei |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： MDBパラメータについての問題 |
いつも お世話になっております。どうも ありがとうございました。
いま、次の問題があります。よろしくお願いします。
標準モジュール(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=VBexercise"
cnn.Open
If rst.State = 1 Then
rst.Close
End If
If rst1.State = 1 Then
rst1.Close
End If
If rst.State = 0 Then
'データベースの連続
rst.Open "title", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
End If
End Sub
検索関数は次のような
Private Sub cmdFind_Click()
Dim Sql As String
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
.............
End Sub
「パラメータが少なすぎます。3を指定してください」というエラーメセージが表示しました。
誰が知れば教えてください。よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）