Fecha y hora actual: Domingo 23 Sep 2018 18:48
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Como conectar Visual Basic con MySQL

Responder al Tema Ir a página Anterior123456

Índice del Foro > Visual Basic y VBA > Como conectar Visual Basic con MySQL

Autor Mensaje
sergio



Registrado: 17 Jun 2009
Mensajes: 2

Mensaje Publicado: Miércoles 28 Mar 2012 14:32

Título del mensaje: Re: Como conectar Visual Basic con MySQL

Responder citando

ESTE ES EL CODIGO:

Private Sub btnAgregar_Click()
wServidor = "localhost"
wPuerto = "3306"
wUsuario = "root"
wpwd = "serveder65"
wBD2 = "u786058010_msn"

Set wBD = New ADODB.Connection 'AKI MARCA EL ERROR APARTIR DE NEW HASTA CONNECTION
Set RecSQL = New ADODB.Recordset
wBD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & "Server=" & wServidor & ";" & "Port=" & wPuerto & ";" & "Database=" & wBD2 & ";" & "User=" & wUsuario & ";" & "Password=" & wpwd & ";" & "Option=3;"

wBD.Open
RecSQL.Open "SELECT * FROM contactos WHERE Nombre='" & txtNombre.Text & "' ", wBD
If (Not (RecSQL.EOF)) Then
MsgBox "Ese Contacto ya esta registrado.", vbExclamation, "Trabajador repetido"
txtNombre.Text = ""
Else
RecSQL.Close
RecSQL.Open "INSERT INTO contactos(Nombre,ApePat,ApeMat,Celular) VALUES (" & Val(txtNombre.Text) & ",'" & txtApePat.Text & "','" & txtApeMat.Text & "','" & txtCelular.Text & "')", wBD, adOpenStatic, adLockOptimistic 'Acá es donde esta el error...
Set RecSQL = Nothing
MsgBox "El Contacto ha sido registrado.", vbExclamation, "Trabajador registrado"
End If
End Sub

'---MENSAJE DE ERROR:---'
'Error de compilación:
'No se a definido el tipo definido por el usuario

'EN EL FORM 4 cajas de texto y un command

AYUDA POR FAVOR TESIS !!!

PDTA: ( ASÍ LE CAMBIE A "driver={MySQL ODBC 3.51 Driver};" POR 5.1, ME SIGUE SALIENDO EL MISMO ERROR)

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3179
Ubicación: Valencia - España

Mensaje Publicado: Domingo 30 Sep 2012 09:00

Título del mensaje: Re: Como conectar Visual Basic con MySQL

Responder citando

No tengo perdón... mis disculpas.
No había visto este post.

Lee el manual desde el principio y verás lo que te falta.
Agrega las 2 referencias que marca el manual para que deje de marcarte ese molesto error.
Instala el driver NECESARIO para que la aplicación funcione y listo.

Saludos y suerte Ok


Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado
RODRIGO_EXCEL



Registrado: 16 Ene 2018
Mensajes: 2

Mensaje Publicado: Martes 16 Ene 2018 02:45

Título del mensaje: Como conectar Visual Basic con MySQL

Responder citando

Estimados... Soy nuevo acá y no tan nuevo ya que llevo mucho leyéndolos..

Tengo un problema con lo publicado el Jueves 27 Dic 2007 20:19, en relación a Como conectar Visual Basic con MySQL...

Resulta que indicaron ahí como insertar un registro en la BDatos... de la siguiente forma (la menos correcta)... de igual forma la estoy probando...

Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from datos", BD, adOpenStatic, adLockOptimistic

RecSQL.AddNew
RecSQL.Fields(1).Value = Text1
RecSQL.Fields(2).Value = Text2
RecSQL.Update

RecSQL.Close
Set RecSQL = Nothing

El error que me da de esta forma es el siguiente "Tipo Invalido"
cuando quiere cargar el valor string...

Dim w_city_id As Integer
Dim w_city As String * 50
Dim w_country_id As Integer
Dim w_last_update As Date
....
conectado a la base... todo OK...
....
'- Cargando Datos:

w_city_id = 701
w_city = "'Chile'"
w_country_id = 9081
w_last_update = "15/1/2019"

BD_rs.AddNew
BD_rs.Fields(1).Value = w_city_id
BD_rs.Fields(2).Value = w_city >>>>>>> aquí llega e indica tipo inválido !!!!!! PORQUE!!!!!!??
BD_rs.Fields(3).Value = w_country_id
BD_rs.Fields(4).Value = w_last_update
BD_rs.Update


Me puedes ayudar ADMINISTRADOR (GURU)!!!!

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3179
Ubicación: Valencia - España

Mensaje Publicado: Jueves 18 Ene 2018 00:04

Título del mensaje: Como conectar Visual Basic con MySQL

Responder citando

Hola,

2 cosas que puedes probar:

Deja estas variables así y pruebas.
Código:
Dim w_city As String

Código:
w_city = "Chile"


Opcionalmente revisa que el campo de la base de datos sea string (que supongo ya lo habrás revisado 30 veces)

Si sólo haciendo el cambio de la declaración de la variable no funciona, prueba a dejarlo así;
Código:
BD_rs.Fields(2).Value = "Chile"


Ya nos cuentas.


Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema Ir a página Anterior123456
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

COmo puedo entrar a los Menus de una Verifone V...

manuelomeli Temas generales 0 Miércoles 23 May 2018 19:58 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA: COMO RECONECTO VB6 A MYSQL SIN PERDER LA...

rjaguin Visual Basic y VBA 0 Miércoles 09 May 2018 22:27 Ver último mensaje
El tema está bloqueado: no pueden editarse ni agregar mensajes.

Programador Visual Basic Excel

WhiteSkull Bolsa de trabajo 1 Lunes 20 Feb 2017 10:34 Ver último mensaje
El foro no contiene ningún mensaje nuevo

[C] Como se libera la memoria en estructura din...

DanielC C, C#, Visual C++ 1 Miércoles 11 Ene 2017 22:32 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Como saber que una base de datos fue modificada...

yoannepd SQL Server 1 Martes 10 Ene 2017 22:08 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,