Notas Sobre Programación

Código básico para validar números de un TextField en Visual Basic 6 Private Sub TextBox1_Change ()   Dim textval As String Dim numval As String     txtValor = TextBox1 . Text If IsNumeric ( txtValor ) Then numval = txtValor Else TextBox1 . Text = CStr ( numval ) End If   End Sub

Qué tal, recientemente en el trabajo me pidieron agregar un modulo a una aplicacion hecha en VB6 el cual necesitaba conexion a un servidor remoto Aqui un script de la conexion a MYSQL Es necesario instalar ODBC MYSQL (en este caso 3.15) Sub conectarBD() Set Conexion = New ADODB.Connection Conexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER= ip_de_tu_base ;DATABASE=nombre_de_tu_base;UID=tu_user;PWD=tu_password;OPTION=3" Conexion.Open Conexion.CursorLocation = adUseClient A = Conexion.State If A = 1 Then MsgBox ("Base de Datos Conectada") End If End Sub  **Fuente www.forosdelweb.com  Saludos!