在visual studio 2005中使用VB编写公共模块的程序,定义数据库连接中的ADODB问题
在visualstudio2005中使用VB编写公共模块的程序,定义数据库连接中我的代码是这样的OptionExplicitOnModuleMdl_MainPublicc...
在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行吗?是不是很多不一样的地方啊? 展开
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个回答
展开全部
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的书籍.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询