投稿日 | : 2005/02/23(Wed) 12:43 |
投稿者 | : ももたろう |
Eメール | : |
URL | : |
タイトル | : MSHFlexGridでのNULL表示について |
いつもお世話になっております。
ACCESSのmdbを読み込ませて、MSHFlexGridに表示させようと思うのですが、
null値のところで止まってしまいます。
エラーmsg:「NULLの使い方が不正です」
null値も読み込ませるようなプロパティがあるのでしょうか?
プロパティを見ても分からなかったので教えて下さい。
よろしくお願いします。
ソースは下記になります。
Private Sub cmdSearch_Click()
Dim cn As New ADODB.Connection 'データベースに接続するためのコネクションオブジェクト
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim i As Integer
Set cn = New ADODB.Connection
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cr5000.mdb"
cn.Open
Set rst = New ADODB.Recordset
strSQL = "select * from cr5000 where partName like '" & txtpartName.Text & _
"' and partcode like '" & txtPartCode.Text & _
"' and partcode like '" & txtGTCode.Text & _
"' and partcode like '" & txtMaker.Text & _
"' and partcode like '" & txtMakerCode.Text & _
"' and partcode like '" & txtvalue.Text & _
"' and partcode like '" & txtNumberOfPin.Text & "'"
Set rst = cn.Execute(strSQL, , adCmdText)
frmShow1.Show
i = 1
Do While Not rst.EOF
With frmShow1.MSHFlexGrid1
.AddItem ""
.TextMatrix(i, 0) = rst![*]
.TextMatrix(i, 1) = rst![partName]
.TextMatrix(i, 2) = rst![SearchCode]
.TextMatrix(i, 3) = rst![PartsClass]
.TextMatrix(i, 4) = rst![GTCode]
.TextMatrix(i, 5) = rst![PartCode]
.TextMatrix(i, 6) = rst![JapanesePartsName]
.TextMatrix(i, 7) = rst![EnglishPartsName]
.TextMatrix(i, 8) = rst![UsedSection]
.TextMatrix(i, 9) = rst![RegisteredSection]
.TextMatrix(i, 10) = rst![FailureRate]
End With
i = i + 1
rst.MoveNext
Loop
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub