sos:如何用ado连接数据库？急急急，各位请进！

Question

http://www.csdn.net/expert/topic/169/169856.shtm
我贴这个例子好不好？哈哈，我自已都怕，好麻烦哦！

Answer 1

简单的方法就用xxfly()大侠的方法....
想灵活些就用 ADODB 来做.不会很难哦! 列表控件用LISTVIEW,很方便的.

Answer 2

DataGrid与Adodc 
设置Adodc1.ConnectionString属性,连接到数据库.
在Adodc1.recordsource属性中添加SQL语句.
将DataGrid1.datasource等于Adodc1.
运行即可.

Answer 3

呵呵，我这里有一个我学习VB的一个例子，我们一起努力。我也是刚学，写各位大虾不要笑话我啊！
Public Sub Ini_Ado1(vado, vdbgrid)
    Dim ado As Adodc
    Dim dbgrid As DataGrid
    
    Set ado = vado
    Set dbgrid = vdbgrid
    
    With ado
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb_project\bet\bet.mdb;Persist Security Info=False"
      .RecordSource = "select bet_no,no_1,no_2,no_3,no_4,no_5,no_6,no_7,no_8 from bet order by bet_no desc"
      .Visible = False
    End With
    
    ado.Refresh
    Set dbgrid.DataSource = ado
    dbgrid.Refresh
    With dbgrid
        .Columns(0).Caption = "彩票期数"
        .Columns(1).Caption = "第一号"
        .Columns(2).Caption = "第二号"
        .Columns(3).Caption = "第三号"
        .Columns(4).Caption = "第四号"
        .Columns(5).Caption = "第五号"
        .Columns(6).Caption = "第六号"
        .Columns(7).Caption = "第七号"
        .Columns(8).Caption = "特殊号"
        .Columns(0).Width = 850
        .Columns(1).Width = 650
        .Columns(2).Width = 650
        .Columns(3).Width = 650
        .Columns(4).Width = 650
        .Columns(5).Width = 650
        .Columns(6).Width = 650
        .Columns(7).Width = 650
        .Columns(8).Width = 650
        .Columns(0).AllowSizing = False
        .Columns(1).AllowSizing = False
        .Columns(2).AllowSizing = False
        .Columns(3).AllowSizing = False
        .Columns(4).AllowSizing = False
        .Columns(5).AllowSizing = False
        .Columns(6).AllowSizing = False
        .Columns(7).AllowSizing = False
        .Columns(8).AllowSizing = False
        .AllowRowSizing = False
        .AllowUpdate = False
        .AllowDelete = False
        .Width = 6600
    End With
End Sub

Answer 4

DataGrid或者是msflexgrid等绑定控件与Adodc,用datagrid实现增删改不用按钮,可直接修改,不过的刷新. 

Answer 5

如果用言语连接的话,可以这样,比如连接SQL SERVER
1引用一下ADO2.0,在工程菜单下的引用里
2PUCLIC 或 DIM 一个变量(DB) AS ADODB.CONNECTION
3PUBLIC 或DIM 一个变量(RS) AS ADODB.RECORDSET
4DB.CONNECTIONSTRING="DSN:='';SERVER=TAOJB;DRIVER=SQL SERVER;UID=SA;PWD=;DATABASE=DATABASE"
DB.OPEN
5RS.OPEN"SELECT * FROM PRDT",DB,,
这要求有一些SQL语句基础