zoukankan      html  css  js  c++  java
  • VB6 red write DB using Microsoft DAO 3.6 Object Library

    ' -----------------------------read db
    Private Sub Form_Load()
    'MsgBox App.Path & "wgscd.mdb"
    Dim tblCountry As Recordset
    Dim dbSys As Database
    Dim s As String
    Set dbSys = OpenDatabase(App.Path + "wgscd.mdb", False)
    Set tblCountry = dbSys.OpenRecordset("Students")' OR Use like : dbSys.OpenRecordset("select * from Students")
    With tblCountry
    .MoveFirst
    Do While Not .EOF
    s = s & !sid & ";" & !Name & " score:" & .Fields("score") 'note:"!sid" is present as .Fields("sid")
    .MoveNext
    Loop

    End With
    MsgBox s
    

    End Sub

    '--------------write db-----------------------------
    Private Sub Command1_Click()

    'MsgBox App.Path & "wgscd.mdb"
    Dim tblCountry As Recordset
    Dim dbSys As Database
    Dim s As String
    Set dbSys = OpenDatabase(App.Path + "wgscd.mdb", False)
    Set tblCountry = dbSys.OpenRecordset("Students")
    With tblCountry
    .AddNew
    !sid = 5 + rnd(500)
    !Name = "bb" & Now
    .Fields("score") = rnd(100)
    .Update
    .MoveFirst
    End With

     MsgBox tblCountry.RecordCount
    

    End Sub


    bind data with TDBGrid (Library TrueDBGrid80 C:WINDOWSsystem32 dbg8.oca ComponentOne True DBGrid Pro 8.0)

    step:
    1.Drag a Data control to the form with named "Data1"
    2.Drag a TDBGrid control to the form with named "TDBGrid1"
    2.Set control "TDBGrid1"'s property "DataSource" with value "Data1"
    3.hen code :
    Dim sysDb As Database
    Private Sub Command1_Click()
    Dim rsData As Recordset
    Dim sPath As String
    Dim rs As Recordset
    sPath = App.Path + "/testDB.mdb"
    Set sysDb = OpenDatabase(sPath, 3)
    Set rsData = sysDb.OpenRecordset("select * from students")
    Set rs = rsData.Clone
    Set Data1.Recordset = rs 'must use set
    TDBGrid1.Columns("id").BackColor = vbRed
    'Me.TDBGrid1.ReBind

    End Sub

    refer link:
    Database.OpenRecordset Method (DAO) link:https://msdn.microsoft.com/en-us/library/office/ff820966.aspx

  • 相关阅读:
    Luogu P4727 [HNOI2009]图的同构记数
    ARC 101 E
    JSOI2019 Round2 游记
    JSOI2019 Round1(十二省联考)游记
    Technocup 2019
    Codeforces Round #533 (Div. 2)比赛总结
    学习链接
    2018.12.29-2018.1.9安师大附中集训
    关于考试
    NOIP2018提高组 游记
  • 原文地址:https://www.cnblogs.com/wgscd/p/5176887.html
Copyright © 2011-2022 走看看