数据库连接怎么连接啊？

Question

我用VB做的成绩管理系统的，可是在数据库连接后，运行失败，是什么原因？而且很多东西不能用，帮忙一下？可以加我的qq99867978

Answer 1

Option Explicit
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False;Jet OLEDB:DataBase Password='123'"
 conn.CursorLocation = adUseClient
 conn.Open strconn
 
 If rs.State = 1 Then rs.Close
 rs.Open "select * from Phone", conn, 3, 3
 
 Set Me.DataGrid1.DataSource = rs
End Sub最簡單用adodc控件，然後生成連接字符，然後copy，無論sql還是access還是其它數據庫都能搞定

Answer 2

简单点用ADODC控件，设置下数据源和要打开的表就可以啦！