tag:blogger.com,1999:blog-37481028.post8494704272292144644..comments2023-10-31T19:07:24.611-06:00Comments on El Tony y sus ondas...: Insertando datos en Access 2010 desde Visual Basic .netTony Valderramahttp://www.blogger.com/profile/17105281051674861149noreply@blogger.comBlogger16125tag:blogger.com,1999:blog-37481028.post-43677270841254831812020-04-30T18:13:14.014-05:002020-04-30T18:13:14.014-05:00No sé, Carlos, exactamente que necesitas. Puedes h...No sé, Carlos, exactamente que necesitas. Puedes hacer una tabla que contenga un campo fecha (que guarda fecha y hora) y al entrar al programa que añada automáticamente un registro con el usuario y la fecha/hora del sistema.<br /><br />Tal vez la instrucción SQL cambie un poco dependiendo del DBMS que estés usando: algunos lo ponen entre comillas, Access necesita que la fecha esté entre #, etc.Tony Valderramahttps://www.blogger.com/profile/17105281051674861149noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-32166560556202553452020-04-30T17:19:14.157-05:002020-04-30T17:19:14.157-05:00Hola
Necesito saber como puedo hacer que se guard...Hola <br />Necesito saber como puedo hacer que se guarde la fecha en la tabla de la base de datos para luego ver cuando se registro<br />Gracias por tu ayuda<br />Saludos<br />Carloscarloshttps://www.blogger.com/profile/15703306729378274933noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-334970631511233282013-09-05T10:04:00.720-05:002013-09-05T10:04:00.720-05:00brother, excelente tu post!
lo aplique y fue de mu...brother, excelente tu post!<br />lo aplique y fue de mucha ayuda....<br />pero tu sabes como crear una tablas desde vb2010 y obviamente tambn crearle campos a esa tabla?<br /><br />te lo agradeceria mucho! estoy atento a tu respuesta; mi correo es jexuz27@hotmail.comAnonymoushttps://www.blogger.com/profile/02666088619844090887noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-57333988214063653672013-07-18T18:38:04.265-05:002013-07-18T18:38:04.265-05:00como veo la conexion con access?como veo la conexion con access?Anonymoushttps://www.blogger.com/profile/13985340210393562018noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-91414826342033100042013-07-07T21:48:42.016-05:002013-07-07T21:48:42.016-05:00Yo encontré, en versiones viejas de Visual Basic, ...Yo encontré, en versiones viejas de Visual Basic, que era mejor hacer el acceso directamente con SQL. Era más rápido y funcional. Pero ahora no lo he probado.Tony Valderramahttps://www.blogger.com/profile/17105281051674861149noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-68539416519575292842013-07-06T18:28:58.890-05:002013-07-06T18:28:58.890-05:00Amigo una pregunta: ¿Es aconsejable enlazar el for...Amigo una pregunta: ¿Es aconsejable enlazar el formulario directamente a la tabla o a una consulta SQL de la propia base de datos como hace Microsoft en muchos ejemplos de Access? ¿Afecta esto el rendimiento y/o seguridad? Saludos!César A. Martínezhttps://www.blogger.com/profile/02418864591633735321noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-67034062641854578652013-05-01T23:46:23.855-05:002013-05-01T23:46:23.855-05:00No precisamente buscaba lo de "Application.St...No precisamente buscaba lo de "Application.StartupPath" pero sin querer llegue a el. gracias por el dato :) Alexis Martinez (@Alkz6)https://www.blogger.com/profile/17186302850122332087noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-86228545112836824782013-04-02T23:17:53.155-06:002013-04-02T23:17:53.155-06:00NIcolas:
Buenas, no hace mucho que empece con este...NIcolas:<br />Buenas, no hace mucho que empece con este lenguaje y se me dificultan algunas cositas, este es supuestamente un codigo para guardar "X" informacion de una Base de Datos. La conexion hacia la DB ya la tengo establecida en otro Form, me gustaria saber si me falta algo o cometi algun error... Porque no me permite guardar,me salta el msg de error, desde ya muchas gracias y esperando comentario... <br /><br /><br />Imports System.Data.OleDb<br /><br />Public Class frm_ficha<br /><br /> Private Sub frm_ficha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> <br /> 'TODO: esta línea de código carga datos en la tabla 'Base_de_datos1DataSet.Ficha' Puede moverla o quitarla según sea necesario.<br /> Me.FichaTableAdapter.Fill(Me.Base_de_datos1DataSet.Ficha)<br /> End Sub<br /><br /> 'Declarar Variables<br /> Dim Nombre = txtNombre<br /> Dim Apellido = txtApellido<br /> Dim Descripcion = txtDescripcion<br /> Dim Fecha = txtFecha<br /> Dim Id = txtId<br /><br /> 'Grilla DB<br /><br /> Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)<br /><br /> End Sub<br /><br /> Dim conexion As New OleDbConnection<br /> Dim comandos As New OleDbCommand<br /><br /> Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click<br /><br /><br /> Try<br /> comandos = New OleDbCommand("INSERT INTO Ficha (Id,Nombre,Apellido,Descripcion,Fecha)" & Chr(12) &<br /> "VALUES(txtNombre,txtApellido,txtDescripcion,txtFecha,txtId)", conexion)<br /> comandos.Parameters.AddWithValue("@Nombre", txtNombre.Text)<br /> comandos.Parameters.AddWithValue("@Apellido", txtApellido.Text)<br /> comandos.Parameters.AddWithValue("@Descripcion", txtDescripcion.Text)<br /> comandos.Parameters.AddWithValue("@Fecha", txtFecha.Text)<br /> comandos.Parameters.AddWithValue("@Id", txtId.Text)<br /> comandos.ExecuteNonQuery()<br /> MsgBox("Guardado Correctamente", vbInformation, "Correcto")<br /> txtNombre.Clear()<br /> txtApellido.Clear()<br /> txtDescripcion.Clear()<br /> txtFecha.Clear()<br /> txtId.Clear()<br /> txtNombre.Focus()<br /> Catch ex As Exception<br /> MsgBox("Error al Guardar", vbExclamation, "Error")<br /> End Try<br /> End Sub<br /><br /> Private Sub btn_Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Salir.Click<br /> conexion.Close()<br /> Me.Close()<br /> End Sub<br />End ClassAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-37481028.post-84300219633082609972013-03-28T15:12:02.996-06:002013-03-28T15:12:02.996-06:00muchas gracias me sirvgio muchomuchas gracias me sirvgio muchoAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-37481028.post-68787462176672751162013-03-22T10:20:49.061-06:002013-03-22T10:20:49.061-06:00Estimado Van Van:
¿Qué error te manda? Usa el Er...Estimado Van Van:<br /><br />¿Qué error te manda? Usa el Err.Description cuando entra al Catch para ver cuál es el problema.Tony Valderramahttps://www.blogger.com/profile/17105281051674861149noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-10740349894314626872013-03-22T10:19:02.524-06:002013-03-22T10:19:02.524-06:00a mi igua.. manda directo al catch diciendo la ven...a mi igua.. manda directo al catch diciendo la ventana de error, estoy trabajando en Visual estudio 2012 xpreess, no se si cambie el codigo para conectarse. ya verifique tu codigo, es igual, solo que hice lo del chavo, ingrese otros datos.. <br />saludos, espero comentarioovan vanhttps://www.blogger.com/profile/14853438644152304411noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-45392718641912481742013-01-26T22:11:26.522-06:002013-01-26T22:11:26.522-06:00Al momento de ingresar un dato me dice error de co...Al momento de ingresar un dato me dice error de conexion, si me entiende?Juanhttps://www.blogger.com/profile/05909205051406206986noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-75002862518145885892013-01-26T16:00:48.776-06:002013-01-26T16:00:48.776-06:00¿En dónde marca el error? ¿En el Form_Load o en e...¿En dónde marca el error? ¿En el Form_Load o en el btnRegistra_click o en ambos?Tony Valderramahttps://www.blogger.com/profile/17105281051674861149noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-87123068152633354512013-01-25T23:07:54.042-06:002013-01-25T23:07:54.042-06:00Disculpa modifique el codigo pero no se conecta me...Disculpa modifique el codigo pero no se conecta me dice error de conexion<br /><br />Imports System.Data<br />Imports System.Data.OleDb<br />Public Class Form1<br /> Dim conconexion As OleDb.OleDbConnection<br /> Dim cmdcommand As OleDb.OleDbCommand<br /><br /> Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _<br /> Application.StartupPath & "\Cliente.accdb"<br /> conconexion = New OleDb.OleDbConnection(con)<br /> Timer1.Start()<br /> End Sub<br /> Private Sub btnRegistra_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistra.Click<br /> Dim hora As String = Trim(Str(Now.Hour)) & ":" & Trim(Str(Now.Minute)) & ":" & Trim(Str(Now.Second))<br /> Dim fecha As Date = Now.Date<br /> Try<br /> conconexion.Open()<br /> cmdcommand = New OleDb.OleDbCommand<br /> cmdcommand.Connection = conconexion<br /> cmdcommand.CommandText = "INSERT INTO Tabla1 (Numero,Cliente,Nombre,Codigo,Presentacion,Hora,Fecha) VALUES (" & _<br /> Txtnumero.Text & ",'" & txtcliente.Text & "','" & txtnombre.Text & "','" & txtcodigo.Text & "','" & txtpresentacion.Text & "','" &<br /> hora & "','" & fecha & "')"<br /> cmdcommand.ExecuteNonQuery()<br /> conconexion.Close()<br /> MsgBox("Registro Correcto", MsgBoxStyle.Information, "Registro de Cliente")<br /> Catch ex As Exception<br /> MsgBox("Error de Conexion", MsgBoxStyle.Exclamation, "Registro de Cliente")<br /> End Try<br /> Txtnumero.Text = ""<br /> Txtnumero.Focus()<br /> txtcliente.Text = ""<br /> txtcliente.Focus()<br /> txtnombre.Text = ""<br /> txtnombre.Focus()<br /> txtcodigo.Text = ""<br /> txtcodigo.Focus()<br /> txtpresentacion.Text = ""<br /> txtpresentacion.Focus()Juanhttps://www.blogger.com/profile/05909205051406206986noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-45474798271271642012-11-23T07:13:31.638-06:002012-11-23T07:13:31.638-06:00¿De qué tipo de datos son los campos id, Accesorio...¿De qué tipo de datos son los campos id, Accesorios y Cantidad en tu tabla de Access? Es que si no son de tipo texto, te va a dar problemas por la forma en que combinas comillas y apostrofes en el CommendText. Por ejemplo, si id y Cantidad son numéricos, hay que quitar los apostrofes que los rodean, por ejemplo:<br /><br />cmdCommand.CommandText = "INSERT INTO existencias(id,Accesorios,Cantidad) values(" & _<br />TextBox7.Text & ",'" & TextBox1.Text & "'," & TextBox2.Text & ")"<br /><br />Pequeño cambio, pero importante. ¡Saludos!Tony Valderramahttps://www.blogger.com/profile/17105281051674861149noreply@blogger.comtag:blogger.com,1999:blog-37481028.post-18315135788629343312012-11-22T21:58:35.502-06:002012-11-22T21:58:35.502-06:00no me inserta los datos yo use 3 cajas de texto un...no me inserta los datos yo use 3 cajas de texto una es el id, otra accesorio, otra cantidad, este es mi codigo espero me puedas ayudar.<br /><br />blic Class extras<br /> Dim conConexion As OleDb.OleDbConnection<br /> Dim cmdCommand As OleDb.OleDbCommand<br /><br /> Private Sub ExistenciasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExistenciasBindingNavigatorSaveItem.Click<br /> Me.Validate()<br /> Me.ExistenciasBindingSource.EndEdit()<br /> Me.TableAdapterManager.UpdateAll(Me.ExistenciasDataSet)<br /><br /> End Sub<br /><br /> Private Sub extras_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> 'TODO: esta línea de código carga datos en la tabla 'ExistenciasDataSet.existencias' Puede moverla o quitarla según sea necesario.<br /> Me.ExistenciasTableAdapter.Fill(Me.ExistenciasDataSet.existencias)<br /> Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _<br /> Application.StartupPath & "\existencias.accdb"<br /> conConexion = New OleDb.OleDbConnection(con)<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Try<br /> conConexion.Open()<br /> cmdCommand = New OleDb.OleDbCommand<br /> cmdCommand.Connection = conConexion<br /> cmdCommand.CommandText = "INSERT INTO existencias(id,Accesorios,Cantidad) values(' " & _<br /> TextBox7.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "')"<br /> cmdCommand.ExecuteNonQuery()<br /> conConexion.Close()<br /> MsgBox("Datos agregados correctamente", MsgBoxStyle.Information, "Registro de Accesorios")<br /> catch ex As Exception<br /> MsgBox("Error de conexion", MsgBoxStyle.Exclamation, "Registro de accesorios")<br /> End Try<br /> TextBox7.Text = ""<br /> TextBox7.Focus()<br /> TextBox1.Text = ""<br /> TextBox1.Focus()<br /> TextBox2.Text = ""<br /> TextBox2.Focus()<br /><br /> End Sub<br />End Class3ric Martinezhttps://www.blogger.com/profile/17766713079439706244noreply@blogger.com