Conectar VB a MySQL ...

[turco_7]

bueno .. esa es la pregunta, como me conecto desde Visual Basic a MySQL ... ademas quisiera saber si es que es necesario tener el apache o algo de eso en la PC .. bueno le agradesco a todos .. saludos !!!

[reanimar]

'Me conecto a la base de datos MySQL
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=pppppp;PORT=3306;DATABASE=pppp;USER =pppp;PASSWORD=pppp;OPTION=3;"
conn.Open

Tene que tener los drives ODBC de MySQL www.mysql.com

[aldo1982]

buscá en las FAQs, sino está en las FAQs despues posteá.

salu2

[turco_7]

Gracias Reanimar ... :D


Aldo1982
esta bien tenes razon .. pero a veces nos equivocamos .. o creemos que ya no quedan recursos... si ? nadie es perfecto...

[aldo1982]

mirá eso ke decis es verdad, yo hacia siempre eso, preguntava y preguntava sin leer nada jajaajaja
herrar es umano

salu2

[GeoAvila]

Iniciado por aldo1982

herrar es umano
salu2

si..claro.. Humano lleva "H"

jejej nos vemos..

[aldo1982]

Errar Es Sin H
Humano Es Con H
****************es Un Dicho Ke Decimos En Argentina Ejjeejej

[turco_7]

y preguntaba es con B no con V
y en argentina no tenemos dichos asi !!!!

[jh1911]

Código:

		Dim strConexion As String
		strConexion = "server=localhost; user id=root; password=sona; database=base;"

		Dim strComando AS String 
		strComando = "SELECT * FROM agenda"

		Dim adaptador As MySqlDataAdapter
		Dim ds As New DataSet()  

		adaptador = New MySqlDataAdapter (strComando,strConexion)
		adaptador.Fill (ds, "agenda")
		ObjectList1.DataSource = ds
		ObjectList1.DataBind()

[jh1911]

Ups me olvidaba a mi me funka asi ahora lo que no puedo hacer es actualizar desde el asp la base de datos

[aldo1982]

bue es verdad esa B me la comi cruda ^^ ki lavmo a hacer cordobé jajaajaj
salu2

[aicir]

mira turco_7
no necesariamente necesitas instalar apache o algo asi, basta con instalar MySql.
y el codigo que yo estoy utilizando para conectar estos dos lenguajes es este aunque quisiera que alguien me ayudara a solucionar el error de la segunda linea, ya que marca este error: ERROR DE COMPILACION, NO SE HA DEFINIDO POR EL USUARIO.

De igual manera turco_7, lo demas funciona, solo es solucionar este detallito, espero q te sirva...
Option Explicit

Public WithEvents db As ADOBD.Connection

Private Sub boton_conectar_Click()
Dim cadena_conexion

'creamos cadena de conexion leyendo los valores de los texbox

cadena_conexion = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER= localhost; DATABASE=" & multiusos & " ;PWD=" & 430683 & "; UID=" & sisd & ";OPTION=3"
Set db = New rdoconnection

'asociamos la cadena de conexion al objeto

db.Connect = cadena_conexion
db.cursordriver = rdUseServer

'establecemos conexion

db.Establishconnection
End Sub
Private Sub boton_desconectar_Click()

db.Close

End Sub