Question

VB 查询报错 内存溢出

只要一运行以下代码就会报错（内存溢出），并且发现如果 a，b，c其中2个无数据开始查询就不会出错，请高手指教！请告诉我这是怎么回事，并告诉我怎么处理Private Sub Command12_Click()Dim a As VariantDim b As VariantDim c As VariantDim Msg1 As StringDim strsql As Stringa = "%" + Trim(Text5.Text) + "%"b = "%" + Trim(Combo1.Text) + "%"c = "%" + Trim(Text4.Text) + "%"strsql = "from 播放列表 where 位置 like """ & a & """ and 格式 like """ & b & """ and 歌曲名 like """ & c & """"strsql = "SELECT * " & strsqlMsg1 = MsgBox(strsql, 1, "sql")Adodc1.RecordSource = strsql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.RefreshEnd Sub

Answer 1

这样改一下试试
strsql = "from 播放列表 where 位置 like '" & a & "' and 格式 like '" & b & "' and 歌曲名 like '" & c & "'"
今后注意换行