在visual studio 2005中使用VB编写公共模块的程序，定义数据库连接中的ADODB问题
在visual studio 2005中使用VB编写公共模块的程序，定义数据库连接中我的代码是这样的
Option Explicit On
Module Mdl_Main
Public cnn As ADODB.Connection '定义数据库连接
但是在 ADODB.Connection这里有问题，说是“未定义类型ADODB.Connection“，在建议修复里有很多，有什么odbc.odbcconnection什么的，我需要怎么改？在哪里改？这个ADODB是什么啊？我对编程不是很懂，感觉乱七八糟，但是要做毕业设计，急急急！！
还有，我借了本书是visual basic 6.0的，我用visual studio 2005行吗？是不是很多不一样的地方啊？
1>.加入参考(引用) .NET中 ADODB.dll
Public cnn As ADODB.Connection
Private Sub cmdOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOpen.Click
Dim MyPath As String = "D:\db1.mdb"
cnn.Provider = "MSDataShape"
cnn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyPath & ";Persist Security Info=False;"
cnn.Open()
Dim rs As New ADODB.Recordset
rs.Open("Select * from reports", cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "reports")
Me.TextBox1.Text = ds.Tables(0).Rows.Count.ToString
DataGridView1.DataSource = ds.Tables(0)
cnn.Close()
End Sub
2>.vb6的基础知识部分可以用的上,但大多数语法是不同的.visual studio 2005最好还是用visual studio 2005的书籍.
Public cnn As ADODB.Connection
Private Sub cmdOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOpen.Click
Dim MyPath As String = "D:\db1.mdb"
cnn.Provider = "MSDataShape"
cnn.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyPath & ";Persist Security Info=False;"
cnn.Open()
Dim rs As New ADODB.Recordset
rs.Open("Select * from reports", cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "reports")
Me.TextBox1.Text = ds.Tables(0).Rows.Count.ToString
DataGridView1.DataSource = ds.Tables(0)
cnn.Close()
End Sub
2>.vb6的基础知识部分可以用的上,但大多数语法是不同的.visual studio 2005最好还是用visual studio 2005的书籍.
温馨提示：内容为网友见解，仅供参考
无其他回答
相似回答
大家正在搜
