＋设为首页 ＋添加到收藏夹
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub Form_Load()
Dim sql As String
cn.ConnectionString = "provider=sqloledb;server=O0D0Z3;database=lab;uid=冬;pwd=123456"
cn.Properties("Prompt") = adPromptComplete
cn.Open
rs.ActiveConnection = cn
sql = "select 在 from 我"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenKeyset, adLockBatchOptimistic
For i = 0 To rs.RecordCount - 1
MsgBox Trim(rs.Fields(i)) 改成Trim(rs.Fields(0)就不报错
Next
End Sub
1、如果数据库中某行记录中有null值的话，执行msgbox一句就会出错。但如果把rs.Fields(i))改成Trim(rs.Fields(0)就不报错，为什么？
2、如果rs记录集有好几列，我要用第N列的值应该怎么弄？
rs.Fields(i)指的就是第i列的值
你只查"在"这一字段，当然rs.Fields(i)里的i只能为0
For i = 0 To rs.RecordCount - 1
如果多于一条记录就会报错
