试试如下的代码: Public db As New Connection Set db = New Connection db.ConnectionTimeout = 30 db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;dsn=数据库DSN;uID=;pwd=;database=数据库DSN;" Dim rst As New Recordset Set rst = New Recordset rst.Open "select * from 底图 where 底图.图名='" + MapName.Text + "'", db, adOpenDynamic, adLockOptimistic If rst.RecordCount = 1 Then ProjectName.Text = rst.Fields("项目") MapType.Text = rst.Fields("图别") MapNumber.Text = rst.Fields("图号") MapMemo.Text = rst.Fields("备注") End If rst.Close Set rst = Nothing
没有设置,你可以把recordset的CursorLocation
属性设置为aduseclient,然后再用recordcount看
看记录有多少条
换换cursortype
试一试
Public db As New Connection
Set db = New Connection
db.ConnectionTimeout = 30
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=数据库DSN;uID=;pwd=;database=数据库DSN;"
Dim rst As New Recordset
Set rst = New Recordset
rst.Open "select * from 底图 where 底图.图名='" + MapName.Text + "'", db, adOpenDynamic, adLockOptimistic
If rst.RecordCount = 1 Then
ProjectName.Text = rst.Fields("项目")
MapType.Text = rst.Fields("图别")
MapNumber.Text = rst.Fields("图号")
MapMemo.Text = rst.Fields("备注")
End If
rst.Close
Set rst = Nothing