Mensajes

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

Código (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir


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...