Solved

From DBGrid to Access

Posted on 2001-08-24
6
276 Views
Last Modified: 2012-06-27
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
Comment
Question by:irenesiah
  • 3
  • 2
6 Comments
 
LVL 1

Expert Comment

by:sanjeevjain1973
ID: 6421674
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
 
LVL 27

Expert Comment

by:planocz
ID: 6421750
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
 

Author Comment

by:irenesiah
ID: 6427886
Thank you very much. I am quite busy now. So, I will try out the code later. Thanks again.
0
Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

 
LVL 27

Expert Comment

by:planocz
ID: 6465274
irenesiah are you still busy?
0
 

Author Comment

by:irenesiah
ID: 6474705
planocz, sorry for the delay. I am still new in VB. So, how do I reference ADODB in VB? TQ!
0
 
LVL 27

Accepted Solution

by:
planocz earned 20 total points
ID: 6475538
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

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question