Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 303
  • Last Modified:

From DBGrid to Access

Greetings!

I have created a DBGrid on the form for entering data. But how am I going to transfer all the data in DBGrid to the database? I am using VB6 and Access '97.

Thank you.
0
irenesiah
Asked:
irenesiah
  • 3
  • 2
1 Solution
 
sanjeevjain1973Commented:
You can use Bound & unbound mode of DB Grid.
In Bound mode you can bound dbgrid with Data control. And Set Allownew, Allow Update , AllowDelete property of DB GBrid true , false accordingly your requirment.


Sanjeev
0
 
planoczCommented:
Hi irenesiah,
Here is a piece of code that will update a DB table.
With this and the rest of your code you should be able
to copy your DBGrid to the Database.

Dim iCol as integer

set RS = new ADODB.Recordset

With RS
    For iCol = 0 To 2
       .Fields(iCol).Value = DBGrid.Columns(iCol).Value
    Next
    .Update
End With
0
 
irenesiahAuthor Commented:
Thank you very much. I am quite busy now. So, I will try out the code later. Thanks again.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
planoczCommented:
irenesiah are you still busy?
0
 
irenesiahAuthor Commented:
planocz, sorry for the delay. I am still new in VB. So, how do I reference ADODB in VB? TQ!
0
 
planoczCommented:
from your menu goto project, then references and add the microsoft ActiveX DataObject 2.5 or 2.6 Library.
If you are using a module then add this code to that module....

'******* This goes into your module class file ****
Public RS             As ADODB.Recordset
Public conDataBase    As ADODB.Connection
Public sSql           As String
Public sDBPass        as String    <--- For a password var. if you want to use one in your database.

Public Sub OpenDB()
  '***** XXXX is your Access Database Name
  Set conDataBase = New ADODB.Connection
  conDataBase.CursorLocation = adUseClient
  conDataBase.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & App.Path & "\XXXX.mdb;" & _
 "Jet OLEDB:Database Password=" & sDBPass

End Sub

Public Sub OpenRecSet(sSql As String)
   Set RS = New ADODB.Recordset
   RS.Open sSql, conDataBase, adOpenDynamic, adLockOptimistic
End Sub

'****** This will goto your form file where your DBgrid is.
Dim iCol as integer

  OpenDB

   sSql = "SELECT * From YOUR_TABLE_NAME_IS_HERE order by YOUR FIELD_NAME_IS_HERE"    <---- use for sorting
   
    OpenRecSet (sSql)


With RS
   For iCol = 0 To 2
      .Fields(iCol).Value = DBGrid.Columns(iCol).Value
   Next
   .Update
End With


Hopefully this will get you started...
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now