Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: pepino en Junio 16, 2015, 10:01:01 pm

Título: Como conectar phpMyadmin y Visual
Publicado por: pepino en Junio 16, 2015, 10:01:01 pm

tengo mi conexion:

Código: (VB) [Seleccionar]

Public cn As Connection
Public rs As Recordset
Const strServidor = "localhost"
Const strBaseDatos = "medical"
Const strPassword = "1234"
Const strUsuario = "root"

Código: (VB) [Seleccionar]

Public Sub Conectar()
Set cn = New Connection
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & strServidor & _
"; DATABASE=" & strBaseDatos & _
"; User=" & strUsuario & _
"; Password=" & strPassword & "; OPTION=3"
Set rs = New Recordset
cn.Open
End Sub
tengo la sentencia de ver los datos en datagrip todo bien hasta alli pero no puedo agregar por que me marca error en el boton agregar

Código: (VB) [Seleccionar]

'BOTON DE AGREGAR DATOS
call Conectar
cn.Execute "INSERT INTO pacientes " & "(idPaciente,Nombre,Edad,Sangre,URegla,FParto,Partos,Cesareas,HClinica) VALUES(" & _
                                Me.txtIdPaciente.Text & ",'" & _
                                Me.txtNombre.Text & "','" & _
                                Me.txtFecha.TabIndex & "'," & _
                                Me.txtEdad.Text & ",'" & _
                                Me.txtSangre.Text & "','" & _
                                Me.txtURegla.Text & "','" & _
                                Me.txtFParto.Text & "'," & _
                                Me.txtPartos.Text & "," & _
                                Me.txtCesareas.Text & ",'" & _
                                Me.txtHClinica.Text & "')"
    rs.Requery 1
    DoEvents
    Unload Me
    Set Frm_Paciente = Nothing




Título: Re:Como conectar phpMyadmin y Visual
Publicado por: aedEric en Junio 16, 2015, 11:31:06 pm

pepino que error te marca,   :o a simple vista esta mal tu codigo en esta parte falta el campo fecha

Código: (VB) [Seleccionar]

call Conectar
cn.Execute "INSERT INTO pacientes " & "(idPaciente,Nombre,Edad,Sangre,URegla,FParto,Partos,Cesareas,HClinica) VALUES(" & _
                                Me.txtIdPaciente.Text & ",'" & _
                                Me.txtNombre.Text & "','" & _
                                Me.txtFecha.TabIndex & "'," & _
                                Me.txtEdad.Text & ",'" & _
                                Me.txtSangre.Text & "','" & _
                                Me.txtURegla.Text & "','" & _
                                Me.txtFParto.Text & "'," & _
                                Me.txtPartos.Text & "," & _
                                Me.txtCesareas.Text & ",'" & _
                                Me.txtHClinica.Text & "')"
y este campo

Citar

Me.txtFecha.TabIndex

Título: Re:Como conectar phpMyadmin y Visual
Publicado por: pepino en Junio 17, 2015, 01:03:17 am

soy un pendejo gracias  :o
el codigo lo saque de otra parte para que sirven estas lineas?

Código: (VB) [Seleccionar]

rs.Requery 1
    DoEvents
    Set Frm_Paciente = Nothingme marca error en rs.Requery dice que no hay una conexion.

Título: Re:Como conectar phpMyadmin y Visual
Publicado por: aedEric en Junio 17, 2015, 11:13:25 am

rs.requery  :actualizar todo el contenido de un objeto Recordset

Citar

rs.Requery 1

analiza bien tu codigo para que te descuenta por que te marca error