ya encontre un ejemplo en otra web. abajo esta el autor, o quien escribio. muchas gracias igualmente

Private Sub Combo1_GotFocus()
 
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql$
 
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=datos;" _
& "UID=root;PWD=root;PORT=3306;OPTION=131072 "
 
cnn.Open
 
Set rst = New ADODB.Recordset
 
sql$ = "select empresa from empresas"  'selecciona tabla y columna
 
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, cnn, , , adCmdText
End With
 
Combo1.Clear
rst.MoveFirst
 
Do
Combo1.AddItem rst.Fields!empresa.Value 'muestra en el combo1 lista de columna empresa
rst.MoveNext
Loop Until rst.EOF
 
 
Set rst = Nothing
Set cnn = Nothing
 
 
End Sub

abraham
 

hola gente, perdonlas molestias, recurro a ustedes con este tema por que no encontre en el buscador ninguna informacion
en un module tengo esta conexion:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver={Mysql ODBC 3.51 Driver}; Server=localhost;port=3306; database=datos; user=root; password=root; option=3;"
cn.Open
If cn.State = adStateOpen Then
 
menu.Show
 
 
Else
MsgBox "no coneta"
End
End If
 
End Sub
 

y necesito mostrar en un form -> combo1 los datos de la columna empresa "de la tabla empresas"
desde ya muchas gracias.  y buena semana a todos.

Hola gente... En esta ocasion quisiera pedirles una ayudita...

Estoy haciendo un proyecto en VB6, y necesito que verifique si en la base de datos MySQL existen los datos antes de hacer EL UPDATE, y si NO EXITEN hacer el INSERT... Y SI EXISTEN que prosiga con el UPDATE.
Hay alguna forma de poder hacer eso?

desde ya muchas gracias.

gracias! solucionado.... aunque todavía no saca correctamente la ip... pero asigna el dns... igual ya comence con mi proyecto muy amables. cuando tenga lo mio lo posteo.

No estoy con la pc... Gracias ppr la info, cuando lo termine lo posteo al codigo creo que esta bueno y por ahora me mantiene entretenido

Si, el nombre aparece en un text1.text, pero bloqueado para q no sea editable.. Lo asigna automaticamente...
Me datias un ejemplo de como utilizar el update?... Gracias por ayudarme

No, la ID la puedo eliminar... Esta en int auto increment... Solo la paso de alto con el input...
Necesito q se sobreescriban con el nombre, el cual es fijo...

Hola chic@s ... Mi consulta es:

teniendo en la tabla de mysql...

Id - usuario- pass- email- nombre
1  -  sebas  - 123  - g@i.c- sebastian
2 -
3 -

y en vb6:

4 text box...

Text1.text que contien el nombre q es sebastian...
Y 3 mas
con el email y demas

Pero en el usuario en vez de sebas pongo pepe
y quiero que se  actualice ese dato a partir del text1.text del nombre...
Como hago?
 

http://www.canalvisualbasic.net/foro/internet-y-web/login-en-no-ip-atraves-de-vb-7569/

en esta web encontre un code funcionando, no es el mismo pero funciona... dejo el code... igualmente si encuentro la solucion la posteo muchas gracias.

debajo en el codigo se encuentra el autor del code, o el que hizo sus modificaiones.

Private Sub Command1_Click()
 user = Text1 'tu mail
 pass = Text2 'tu pass
 host = Text3 'tu hostname
 ip = "" 'dejalo vacio para autodetectar
 Text4.Text = UpdateNoIP(user, pass, host, ip)
End Sub
'modificado por Tengu ..::Fireb0y::..
 
Function UpdateNoIP(UserName, Password, Hostname, actIP)
 Dim xmlhttp As Object
 Dim URL As String
 
 Set xmlhttp = CreateObject("microsoft.xmlhttp")
 URL = "http://dynupdate.no-ip.com/dns?username=" & UserName
 URL = URL & "&password=" & Password & "&hostname=" & Hostname
 If actIP <> "" Then URL = URL & "&ip=" & actIP
 'Clipboard.Clear
 'Clipboard.SetText URL
 xmlhttp.open "get", URL, False
 xmlhttp.SetRequestHeader "Pragma", "no-cache"
 xmlhttp.SetRequestHeader "Cache-control", "no-cache"
 
 On Error Resume Next
 xmlhttp.Send
 
 If Err.Number <> 0 Then
 UpdateNoIP = "Error!"
 Exit Function
 End If
 
 If xmlhttp.Status = 200 Then
 UpdateNoIP = CStr(xmlhttp.responseText)
 Else
 If xmlhttp.Status = 401 Then
 UpdateNoIP = "Authorization Error"
 Else
 UpdateNoIP = "Error"
 End If
 End If
 
 If InStr(UpdateNoIP, ":") Then
 Status = AfterLast(UpdateNoIP, ":")
 Status = BeforeLast(Status, Chr(10))
 Select Case Status
 Case 0: UpdateNoIP = "Success - IP address is current, no update performed"
 Case 1: UpdateNoIP = "Success - DNS hostname update successful"
 Case 2: UpdateNoIP = "Error - Hostname supplied does not exist"
 Case 3: UpdateNoIP = "Error - Invalid username"
 Case 4: UpdateNoIP = "Error - Invalid password"
 Case 5: UpdateNoIP = "Error - Too many updates sent. Updates are blocked until 1 hour passes since last status of 5 returned."
 Case 6: UpdateNoIP = "Error - Account disabled due to violation of No-IP terms of service. Our terms of service can be viewed at http://www.no-ip.com/legal/tos"
 Case 7: UpdateNoIP = "Error - Invalid IP. Invalid IP submitted is improperly formated, is a private LAN RFC 1918 address, or an abuse blacklisted address."
 Case 8: UpdateNoIP = "Error - Disabled / Locked hostname"
 Case 9: UpdateNoIP = "Host updated is configured as a web redirect and no update was performed."
 Case 10: UpdateNoIP = "Error - Group supplied does not exist"
 Case 11: UpdateNoIP = "Success - DNS group update is successful"
 Case 12: UpdateNoIP = "Success - DNS group is current, no update performed."
 Case 13: UpdateNoIP = "Error - Update client support not available for supplied hostname or group"
 Case 14: UpdateNoIP = "Error - Hostname supplied does not have offline settings configured. Returned if sending offline=YES on a host that does not have any offline actions configured."
 Case 99: UpdateNoIP = "Error - Client disabled. Client should exit and not perform any more updates without user intervention."
 Case 100: UpdateNoIP = "Error - User input error usually returned if missing required request parameters"
 End Select
 End If
End Function
 
'modificado por Tengu ..::Fireb0y::..
Function AfterLast(sFrom, sAfterLast)
 If InStr(1, sFrom, sAfterLast) Then
 AfterLast = Right(sFrom, Len(sFrom) - InStrRev(sFrom, sAfterLast) - (Len(sAfterLast) - 1))
 Else
 AfterLast = ""
 End If
End Function
 
Function BeforeLast(sIn, sLast)
 t = AfterLast(sIn, sLast)
 l = Len(sIn) - Len(t) - Len(sLast)
 BeforeLast = Left(sIn, l)
End Function
 
 
 

En el TextBox no me aparece nada, me deja compilarlo sin problemas, asi que no me falta ningun componente, pero cuando pulso los CommandButtom no hace ninguna accion, incluso ni siquiera parece funcionar ya que el DNS no se me reasigna a mi IP... Habre colocado mal los agregados? que podria ser? hay algo que esta mal y no me doy cuenta...