看一下VB自带的visdata(查找一下你硬盘上有没有)

解决方案 »

  1.   

    最简单的办法就是你在选择菜单〈工程〉-》<添加窗体> 
      在打开的对话框里选<vb数据窗体向导>,一步一步的往下,就可以得到一个完整的ADO控制连接数据库的窗口例子(是不是很容易)。注意在第四步选<ADO代码>你就可以看到完全用ADO对象的连接方法了
      

  2.   

    或者到www.vbgood.com看看,那里很多
      

  3.   

    新建.exe工程MyApp,新建数据环境MyDev,将连接名改为MyCon,设置MyCon属性(连接向导)连上数据库,在Form1.Load事件中写
    MyDev.MyCon.Open()
    Dim rstTmp as new RecordSet
    set rstTmp=MyDev.MyCon.Exec("Select * from MtTable")
    ....
      

  4.   

    你要做什么?只是打开的话,我习惯这样写
        AddCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Info.mdb" & ";Persist Security Info=False"
        V4 = Reg.ReadKey("Software\TV_Inspect_BB", "ServerName")    Set TVinfo = New ADODB.Connection
        On Error Resume Next
        TVinfo.Open AddCon
        If Err = -2147467259 Then
          MsgBox "无法连接服务器,请稍后再试!", vbOKOnly + vbCritical, "Error"
          Exit Sub
        End If
        Set BBKsave1 = New ADODB.Recordset
        Set BBKtemp = New ADODB.Recordset
        BBKsave1.CursorLocation = adUseClient
        BBKsave1.CursorType = adOpenKeyset
        BBKsave1.LockType = adLockOptimistic
        BBKtemp.CursorLocation = adUseClient
        BBKtemp.CursorType = adOpenKeyset
        BBKtemp.LockType = adLockOptimistic
        BBKtemp.Open "BBK_TEMP", TVinfo, , , adCmdTable不过不同情况,打开的方式也不大一样
      

  5.   

    代码倒是有一个
    不过连我自己都看不懂
    要的话
    E-Mail
      

  6.   

    MSDN中带有一个island hopper news的例子,其中的B级例程适合你。C级例程是三层式开发的。