Esta jevi el video como dicen arriba uno de los mejores video geek que he visto
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
WebPage = ("www.google.com.do")
OpenURL WebPage
Sub OpenURL(StrPath)
ShellExecute hwnd, "open", StrPath, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
If adoLlamadas.Recordset.Fields("llamadatipo") = "pedido" Then
optPedido.Value = True
txtdescripcion.text = adoLlamadas.Recordset.Fields("descripcion").Text
End If
'para abrir
Public Sub Open_cn()
On Error GoTo errhandler
Set cmd = New ADODB.Command
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL;DRIVER={SQL Server};SERVER=" & strServer & ";trusted_connection=no;user id= " & strUID & ";password=" & strPWD & " ;database=" & strDatabase & ";"
.Open
End With
cnOpen = True
Exit Sub
errhandler:
Call MsgBox("Error.", vbOKOnly, "Error")
strServer = ""
cnOpen = False
End Sub
'Para cerrar
Public Sub Close_cn()
If cnOpen = True Then
cn.Close
Set cn = Nothing
cnOpen = False
End If
End Sub