DBの値を正しく取得して計算したい

質問

DBに登録されている値をカウントしてその項目が何件登録されていて全体の値の何％かをだしたいんですが、正しい件数と割合がでません。

If Not 賃貸マン.Text = "" Then
On Error GoTo Etrap
MySql = "SELECT * FROM 顧客分析 WHERE 住居形態 = '" & 賃貸マン.Text & "'"
Rs.Open MySql, Cn
If Rs.BOF Or Rs.EOF Or Rs.RecordCount = 0
Then '検索データチェック
賃貸件数.Caption = 0
賃貸比率.Caption = 0
MsgBox ("現在住居『" & 賃貸マン.Text & "』は該当データが存在しません") '検索失敗時の処理
Else '検索成功時の取得データのテキストへの表示処理
tinkazu1 = Rs.RecordCount
賃貸件数.Caption = tinkazu1
cunt = Round((tinkazu1 / sum) * 100, 2) '桁数指定
賃貸比率.Caption = cunt
End If
Rs.Close
On Error GoTo 0
Else
賃貸件数.Caption = ""
賃貸比率.Caption = ""
End If
どうかよろしくお願いします

回答No.2

fortranxp · ベストアンサー

If Not 賃貸マン.Text = "" Then
On Error GoTo Etrap
MySql = "SELECT * FROM 顧客分析 WHERE 住居形態 ="'" & "'" & 賃貸マン.Text & "'"
Rs.Open MySql, Cn

tinkazu1 = Rs.RecordCount
Rs.Close

if tinkazu1=0 then
賃貸件数.Caption = 0
賃貸比率.Caption = 0
MsgBox ("現在住居『" & 賃貸マン.Text & "』は該当データが存在しません") '検索失敗時の処理
Else
賃貸件数.Caption = tinkazu1
cunt = Round((tinkazu1 / sum) * 100, 2) '桁数指定
賃貸比率.Caption = cunt
End If

On Error GoTo 0

賃貸件数.Caption = ""
賃貸比率.Caption = ""

で動きますか。場合によってはRs.MoveNextが必要かも。

回答No.1

fortranxp

MySql = "SELECT * FROM 顧客分析 WHERE 住居形態 = '" & 賃貸マン.Text & "'"
は
MySql = "SELECT * FROM 顧客分析 WHERE 住居形態 =" & "'" & 賃貸マン.Text & "'"

ですね。

お礼

返事おそくなってもうしわかけありません。
自己解決できました。