I use VB to get some data in text boxes then I have to append it to a table created in Access. I read a simmilar question in this forum, but I've just started programming database apps with VB. I suspect I have to use the Recordset property, but the only thing I want is a simple code to press a button and get the data in the text boxes saved in the associated fields. I set the boxes' <FONT FACE=monospace>DataSource</font> property to point to the table, and the <FONT FACE=monospace>DataField</font> to the field I want the data to be saved to. What do I do now? (Sorry about the length of this <b>mess</b>age.<br><br>Aris.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Saving data to an Access table.
- Thread starter Aristarco
- Start date
I guess your question is How to Save from the textbox to the Access Record. If so you can do something of the following:<br><br><br>Dim mydatbse As RecordSet<br>Set mydatbse = dbMyDB.OpenRecordSet("My Table",dbOpenDynaset) <br><br>Private Sub New_Click()<br> <br> mydatbse.AddNew<br> mydatbse!Name = {variable or "name here"}<br> mydatbse!Phone= {Variable or "Phone Number"
<br> mydatbse.Update<br><br> End Sub<br><br><br> What this will do is add the new Var's or Text to the Name and Phone fields of the Database. To append the field just do a mytdabse.Edit instead of a AddNew which add a new record.<br><br> If you are using Textboxes you can alter the statements like:<br><br> mydatbse!Name = text1.text<br><br><br> Hope this helps.... John Stephens
<br> mydatbse.Update<br><br> End Sub<br><br><br> What this will do is add the new Var's or Text to the Name and Phone fields of the Database. To append the field just do a mytdabse.Edit instead of a AddNew which add a new record.<br><br> If you are using Textboxes you can alter the statements like:<br><br> mydatbse!Name = text1.text<br><br><br> Hope this helps.... John Stephens- Thread starter
- #3
Kazalivich
Programmer
Suppose you have a connection like this:<br> Set m_oConexionBD = New ADODB.Connection<br> m_oConexionBD.Open m_sConnection<br><br>you can use the next code:<br><br>Public Function InsertSituacion(uSituacion As regSituacion) As Boolean<br>On Error GoTo InsertSituacion_err<br> <br> m_lCodError = 0<br> m_sDescError = ""<br> InsertSituacion = False<br> <br> g_sSQL = "insert into tabla (cod_situac, dsc_situac, dsc_corta, categoria) values (" + _<br> "'" + uSituacion.cod_situac + "','" + uSituacion.dsc_Situac + "','" + _<br> uSituacion.dsc_corta + "','" + uSituacion.categoria + "')"<br> <br> m_oConexionBD.Execute g_sSQL<br> <br> InsertSituacion = True<br> <br>Exit Function<br>InsertSituacion_err:<br> m_lCodError = Err.Number<br> m_sDescError = Err.Description<br> Exit Function<br>End Function<br>
- Status
