MAURICIOG
09 de Noviembre del 2004

hola amigos del foro mi pregunta
tengo un ejemplo con una base de dato en acess 2000 y una rutina con su formulario.
tengo text1.text =nombre , text2.text =apellido , datacombo1 =año
tengo los botones bucar registro , y solo este me funciona lo muestra esto esta hecho con una consulta sql con coneccion dns . pero no logro modificar el registro ni agregar otro registro nuevo.
Es como Crear el boton para agregar nuevo registro pero con coneccion DNS Y con el addc1 porfavor ayuda es muy URGENTE ALGEN QUE ME CONTESTE .
LES PUEDO ENVIAR EL EJEMPLO.POR CORREO E ANTE MANO GRACIAS.

Private Sub COMMAND1(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim con4 As New ADODB.Connection
Dim rs3 As New ADODB.Recordset
Dim txtsql As String
con4.Open ("DSN=MAURICIO.MDB")
txtsql = "select * from PERSONAL where NOMBRE='" & Text1.Text & "'"
Set rs3 = con4.Execute(txtsql)
If Not rs3.EOF = True Then
Text1.Text = rs3![NOMBRE]
Text2.Text = rs3![APELLIDO]
DataCombo1 = rs3![AÑO]

Else
MsgBox " REGISTRO DE MEDIDA NO EXISTE ***(DEVE CREAR ADMIN DE SISTEMA)***", vbCritical
Text1.Text = Empty
Text1.SetFocus

End If
End If
End Sub
ESTE ES EL BOTON BUSCAR PERO COMO CREO UNO NUEVO

krizall
09 de Noviembre del 2004

hola, eso es muy facil, haces lo todo igual, bueno, para un ejemplo sencillo

solo que enves de un select utilizas un insert

insert into nombretalba (campo1,campo2,campoN) values ()---aqui es donde tienes que tener cuidado

en tu bd tienes tipo de datos para cada colunma dependiendo del tipo de dato se hace lo siguiente:

string o texto: '" & text1 & "'
numerico: " & text2 & "
fecha: #" & text3 & "#

lo que quedaria entre parentesis en value seria de esta manera para cada tipo de dato

values ('" & text1 & "'," & text2 & ",#" & text3 & "#)

y esto seria todo para insertar un registro

espero este comentario te sirva de algo