数据库里有表。表里有记录，要在VB里显示数据库里的记录怎样做？

Question

数据库里有表。表里有记录，要在VB里显示数据库里的记录怎样做？

Answer 1

用ADO来解决问题：
首先dim Conn_DB as new ADODB.Connection
然后设置Connection对象的ConnectionString
然后打开连接
定义一个Recordset对象，写好其Source属性后打开……参见MSDN中关于ADO的说明。

Answer 2

你可以把他门显示在控件DataGrid 或msflexgrid中,把这些控件的数据源设为这个数据库中的某个表。

Answer 3

你的數據庫是access2000 or sql server2000?

Answer 4

点工程引用将microsoft ActiveX Data Objects 2.5 Library 打勾，2.5是版本
然后用ADO打开数据库Dim Cnn As Database
Dim Rst As New ADODB.Recordset
 
    
    Set Cnn = New ADODB.Connection
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名;Persist Security Info=False"
    Rst.CursorLocation = adUseClient
    Rst.Open "SELECT * FROM 表名", Cnn, adOpenForwardOnly, adLockReadOnly, adCmdText 
    
   Set Me.DataGrid1.DataSource = Rst  '使用DataGrid控件把数据读入该控件

Answer 5

Provider=Microsoft.Jet.OLEDB.4.0 '这只能打开Access的数据库

Answer 6

Dim dbstr As String
dbstr = App.Path
If Right(App.Path, 1) <> "\" Then dbstr = App.Path & "\"
dbstr = dbstr & "zhigeng.mdb"
Set db = New ADODB.Connection
db.Open "provider=microsoft.jet.oledb.3.51;" & "data source=" & dbstr
Set adorst = New ADODB.Recordset
adorst.Open "select * from zg ", db, adOpenStatic, adLockOptimistic
Set vsflexgrid.DataSource = adorst
zhigeng.mdb这是你的数据库表,,,改成你的就行了,,

Answer 7

点工程引用将microsoft ActiveX Data Objects 2.5 Library 打勾别忘了这个/...

Answer 8

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 9

学生没有学好。请问ADO是什么呀。怎样打开