Making new records with VB

[f3dde]

Hi there,

currently I am trying to get some basic experience with VB6
I was able to make a connection with MS Access already, so I made a form and made use of a ADO DC. Now I can see trough all of the records from that Table in the Database. Now am I trying to make it possible, to create new records using the Form in VB. So I made a Command button, tried some stuff and got stuck.. I have absolutely no clue on how to make a new form, that's why I am posting this here.

Thanks
~F3dde

[SanjuMtr]

Hi there,

currently I am trying to get some basic experience with VB6
I was able to make a connection with MS Access already, so I made a form and made use of a ADO DC. Now I can see trough all of the records from that Table in the Database. Now am I trying to make it possible, to create new records using the Form in VB. So I made a Command button, tried some stuff and got stuck.. I have absolutely no clue on how to make a new form, that's why I am posting this here.

Thanks
~F3dde

would u Plz Describe in details.if possible show me the code also

[Dököll]

Hi there,

currently I am trying to get some basic experience with VB6
I was able to make a connection with MS Access already, so I made a form and made use of a ADO DC. Now I can see trough all of the records from that Table in the Database. Now am I trying to make it possible, to create new records using the Form in VB. So I made a Command button, tried some stuff and got stuck.. I have absolutely no clue on how to make a new form, that's why I am posting this here.

Thanks
~F3dde

Hey there, f3dde!

As mentioned, it's a bit unclear as to what you hope to achieve, but I seem to have picked up some hints. Sounds like you can see your database through ADODC but cannot add to your databse. If this is the case, I suggest you keep searching this forum. You may stumble upon notes on the very issue of adding/reading your data to/from database. Please let us know where you are, have a code added in this forum to have a look.

I wish you luck with the project.

In a bit!

Dököll

[f3dde]

Hey there, f3dde!

As mentioned, it's a bit unclear as to what you hope to achieve, but I seem to have picked up some hints. Sounds like you can see your database through ADODC but cannot add to your databse. If this is the case, I suggest you keep searching this forum. You may stumble upon notes on the very issue of adding/reading your data to/from database. Please let us know where you are, have a code added in this forum to have a look.

I wish you luck with the project.

In a bit!

Dököll

I am able to see my database trough the ADODC. It looks just like the form in Access now. I just want to be able to edit it in the VB form now, which I am not able to do yet. In other words. I'm trying to find out how to code the Command-buttons in order to make a new record. I hope this makes it more clear to you.

[Dököll]

I am able to see my database trough the ADODC. It looks just like the form in Access now. I just want to be able to edit it in the VB form now, which I am not able to do yet. In other words. I'm trying to find out how to code the Command-buttons in order to make a new record. I hope this makes it more clear to you.

You then will need to query your database, like an update statement. You're comfortable typing up a query!

The code you have to read your database can be modified to update...Post what you ahve working, we'll piece it together. How's that for a deal?

[f3dde]

Option Explicit
 
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & " van " & Adodc1.Recordset.RecordCount
End Sub
 
Private Sub Form_Load()
 Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & " van " & Adodc1.Recordset.RecordCount
End Sub

That is what I currently have, and I suppose this is what you meant. Hope you can help me

[f3dde]

Alright. Since I've had a critical error which made me delete the whole thing I had to start over again, and because I can't find a way to edit my post I made this new reply.

I had to edit my code, because I was unable to get it to work again using the code I posted earlier.

Currently my code looks like the following:

Option Explicit
 
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & " van " & Adodc1.Recordset.RecordCount
End Sub
 
 
Private Sub Form_Load()
Dim strVerbinding As String
  strVerbinding = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bibliotheek uitleensysteem.mdb"
  With Adodc1
   .ConnectionString = strVerbinding
   .RecordSource = "SELECT * FROM Boek"
   .Refresh
  End With
 
  With txtID_Boek
    Set .DataSource = Adodc1
    .DataField = "ID_Boek"
  End With
  With txtISBN
    Set .DataSource = Adodc1
    .DataField = "ISBN"
  End With
  With txtAuteur
    Set .DataSource = Adodc1
    .DataField = "Auteur"
  End With
  With txtTitel
    Set .DataSource = Adodc1
    .DataField = "Titel"
  End With
  With txtRubriek
    Set .DataSource = Adodc1
    .DataField = "Rubriek"
  End With
  With txtUitleenbaar_in
    Set .DataSource = Adodc1
    .DataField = "Uitleenbaar in"
  End With
  End Sub
 

This is pretty much the same thing exept for the ADO DC, which doesn't show me what I wanted.

Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & " van " & Adodc1.Recordset.RecordCount

That is what I am using to show me where I am at the navigation. It should show me: "Current book" from "Total amount of books", but for some reason it doesn't refresh and so is behind all the time.

I'm also still trying to find a way to make new records true this form. By looking at some other help sites I've started to think I need to create a "Recordset", which also is a mystery for me.

I hope this update was clear for you, so you can help me.

~F3dde