Public cnn As New ADODB.Connection再去掉 New ADODB.Connection
解决方案 »
- DataGrid MyDataGrid_RowColChange
- 请教下关于在vb是怎么处理vba中的ApplyCustomType.ChartType=xlBuiltI
- WAVECOM无线猫,串口线接到台式电脑红灯就灭了,接笔记本没事,点解?
- 还是多菜单共用一个按钮的问题1
- 帮忙解决DATAREPORT打印两张不同大小报表的问题!
- 程序安装问题
- 数据运算问题
- agent
- 初次发表自己的软件,望大家找出不足,多多指教,以便互相提高,谢谢!
- 有关 line 方法画线的问题
- 关于用APi进行文件读写的问题!!!
- 紧急!!如何实现用vb象QQ一样的通过internet来更新服务器的数据。(不是用ASP)
Public cnn As ADODB.Connection
定义的时候不加"new",那么需要set
如果加了new则不需要set
Public rst As Recordset
Public conn_SB As String
Public sqlstr As String
Public cnn As New ADODB.Connection
Private Sub Form_Load()
cnn.Open ("driver={SQL Server};server=(local);uid=sa;database=xzh_xz;pwd=")
sqlstr = "select * from county_numreport"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open sqlstr
Set rst.ActiveConnection = cnn
End Sub
以上是经过修改的程序,可是执行到rst.CursorLocation = adUseClient有出了问题??????rst没有CursorLocation这个属性!!!!
放在rst.CursorLocation = adUseClient前面试试。
While Not rst.EOF
aa= rst("ItemId")
bb= rst("Name")
If IsNull(rst("Describe")) = False Then
cc= rst("Describe")
End If
rst.MoveNext
Wend
While Not rst.EOF
aa= rst("ItemId")
bb= rst("Name")
If IsNull(rst("Describe")) = False Then
cc= rst("Describe")
End If
rst.MoveNext
Wend
Public rst As Recordset
Public conn_SB As String
Public sqlstr As String
Public cnn As New ADODB.Connection
Private Sub Form_Load()
cnn.Open ("odbc;driver={SQL Server};server=服务器名;uid=sa;database=数据库名;pwd=")
sqlstr = "select * from county_numreport"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open sqlstr
Set rst.ActiveConnection = cnn
End Sub