Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Sobre conexion a Mysql desde Vb

Estas en el tema de Sobre conexion a Mysql desde Vb en el foro de Visual Basic clásico en Foros del Web. hola miren yo ya me e conectado a la base de mysql desde visual basic.. pero... cuando quiero hacer un recordset me tira un error ...
  #1 (permalink)  
Antiguo 04/01/2006, 10:35
 
Fecha de Ingreso: octubre-2005
Mensajes: 21
Antigüedad: 18 años, 6 meses
Puntos: 0
Desacuerdo Sobre conexion a Mysql desde Vb

hola miren yo ya me e conectado a la base de mysql desde visual basic..
pero...
cuando quiero hacer un recordset me tira un error esta bien esto?:
-----------------------------------------------------------------
MiRecordset.Open "Select char_name, online From characters" _
& "Where char_name=[GM]Darky", MiConexion, adOpenDynamic, adLockOptimistic
Text1.Text = MiRecordset!char_name
Text2.Text = MiRecordset!online
  #2 (permalink)  
Antiguo 04/01/2006, 16:12
Avatar de RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 2 meses
Puntos: 50
Cita:
MiRecordset.Open "Select char_name, online From characters" _
& "Where char_name=[GM]Darky", MiConexion, adOpenDynamic, adLockOptimistic
Para empezar te falta darle un espacio despues de characters para que no lo tengas junto al Where en tu concatenacion.

Checalo...

Saludos
__________________
Nadie roba nada ya que en la vida todo se paga . . .

Exentrit - Soluciones SharePoint & Net
  #3 (permalink)  
Antiguo 04/01/2006, 23:44
 
Fecha de Ingreso: octubre-2005
Mensajes: 21
Antigüedad: 18 años, 6 meses
Puntos: 0
El mismo problema!

mira asi es mi codigo:

Private Sub Form_Load()
Set MiConexion = New Connection
MiConexion.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=l2jdb; PWD=123456;UID=root"
MiConexion.Open
End Sub
Private Sub Command1_Click()
Set MiRecordset = New Recordset
MiRecordset.Open "Select char_name, online From characters " _
& "Where char_name=[GM]Darky", MiConexion, adOpenDynamic, adLockOptimistic
End Sub

y sigo con el mismo error!!!!!
  #4 (permalink)  
Antiguo 05/01/2006, 05:37
Avatar de aldo1982  
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses
Puntos: 6
pimero esos corchetes kiza el sql lo toma como error de caracter...segudno aca te pongo como lo haria yo (con respecto a L2 te dejo un ejemplo dps guiate vos solito



Set cxnfac = New ADODB.Connection
cxnfac.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=131072;S tmt=;Database=l2jdb;" & "uid=" & Form12.uid1 & ";" & "pwd=" & Form12.pwd1 & ";"



cxnfac.Open
SQL = "select * from characters where char_name like '" & Text1.Text & "' "
Set rs = cxnfac.Execute(SQL, , adCmdText)

Do While Not rs.EOF
person = rs!char_name
If Text1.Text = rs!char_name Then

Label7 = rs!classid


End If
rs.MoveNext
Loop
rs.Close
cxnfac.Close
If Text1 <> person Then
MsgBox "No existe el personaje: " & Text1.Text
Exit Sub
End If
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA
  #5 (permalink)  
Antiguo 05/01/2006, 09:10
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
pienso que este problema es más de bases de datos. porque la conexión ya esta lista con el visual basic entonces el problema ya es de una sentencia SQL te aconsejaría que hagas tu pregunta en el foro de Bases de Datos.. y cuando soluciones tu problema de con la consulta intenta de nuevo...

nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:04.