Visual Basic - FAQ DE VISUAL BASIC. RESPUESTAS NO PREGUNTAS.

EN ALGUN OTRO FORO TIENEN UNO PORQUE NO INICIAR UN TEMA DE FAQ AQUI. ASI QUE YO INICIO.

1.- COMO CONECTARSE A UNA BD SQL SERVER 7,0 ó 2000
Me costo un "huevo" hacer la conexion a una base de datos SQL SERVER desde visual Basic 6.0 hablan mucho de conectarse y casi siempre es a ACCESS. asi que yo investigando y poniendo de mi coseña logre este codigo.

Private Sub Form_Load()
Show
DB_CONNSTRING = "Provider=SQLOLEDB;Data Source=15.20.10.91;" _
& "Initial Catalog=pubs;User Id=vera;Password=vera;" _
& "Connect Timeout=15;Network Library=dbmssocn;"

Set rsCount = CreateObject("ADODB.Recordset")
rsCount.Open "la tabla a la cual consultaras", DB_CONNSTRING
Dim X
X = rsCount.RecordCount
Print X
End Sub

asigne una variable llamada x la cual cuenta los registros que hay en la tabla. FUNCIONA DE MARAVILLA.

Para probar el código de ejemplo, crea un nuevo proyecto, añade un botón (Command1) y pega el código en el evento Click; aunque también puedes ponerlo en el evento Form_Load, no es recomendable que te acostumbres a hacer las cosas en ese evento, ya que puede ralentizar la carga del formulario.

Dim strFic As String
Dim strParam As String

' Esto es para el caso de que el programa a ejecutar no exista
On Local Error Resume Next

' Espero que no tengas un programa que se llame así... 8-)
strFic = "NoExiste.exe"
strParam = "Dará_Error"

Shell strFic & " " & strParam, vbNormalFocus

' Si se produce un error, lo comprobamos aquí
If Err Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description & vbCrLf & _
"al intentar ejecutar:" & vbCrLf & _
strFic & " " & strParam
Else
MsgBox "Se está ejecutando: " & strFic & " " & strParam
End If

' Nos aseguramos que el valor del error sea cero
Err = 0

MAS QUE PROBADO.
CON ESTE CODIGO VALIDAMOS QUE LO QUE INGRESEN EN EL TEXBOX SEA SOLO TEXTO Y NO VALORES NUMERICOS. USAR LO INVERSO SI SE QUIERE LO CONTRARIO.

Private Sub Form_Load()
Text1 = ""

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
KeyAscii = 0 ' Para que no "pite"
SendKeys "{tab}" ' Envía una pulsación TAB
ElseIf KeyAscii <> 8 Then ' El 8 es la tecla de borrar (backspace)
' Si después de añadirle la tecla actual no es un número...
'If Not IsNumeric("0" & Text1.Text & Chr(KeyAscii)) Then
' Corrección informada por: José Treviño (21/Sep/2001)
If Not IsNumeric(Chr(KeyAscii)) Then
' ... se desecha esa tecla y se avisa de que no es correcta
Beep
KeyAscii = 0
End If
End If
End Sub

PARA HACER EL BUSCADOR MAS SENCILLO HE PROBADO ESTE EJEMPLO Y FUNCIONA A LA PERFECCION.
1.- HACER UNA CONEXION HACIA LA BASE DE DATOS, EN ESTE CASO LA HAREMOS CON UN ADODC1 HACIA UNA BASE SQL SERVER, EN CASO DE SER ACCESS LA PUEDEN HACER CON UN DATA1
en las propiedades del ADODC1
ConnectionString hacia la base de datos
RecordSorce hacemos el select de lo que deseamos en este caso
SELECT ID_USUARIO, NOMBRE, PASSWORD FROM TABLA1
2.- PINTAR TEXTBOX PARA CADA UNA DE LAS VARIABLES DE LA BD LAS CUALES QUERAMOS QUE APAREZCAN EN ESTE CASO PINTO TRES YA QUE QUIERO EN EL TEXT1 EL ID_USUARIO, EN EL TEXT2 EL NOMBRE Y EN EL TEXT3 SU PASSWORD.
3.- PINTAR DOS BOTONES OPTION PARA HACER LA SELECCION DE LO QUE VAMOS A BUSCAR.
4.-SELECCIONAMOS LOS TRES TEXTBOX Y ASIGNAMOS EN LA PROPIEDAD DATASOURCE EL ADODC1 EL CUAL APUNTA HACIA LA CONEXION.
5.- PONER EL SIGUIENTE CODIGO.
Private Sub Form_Load()
Adodc1.RecordSource = "tabla1"
Text1.DataField = "usuario"
Text2.DataField = "Nombre"
Text3.DataField = "password"
Text4 = ""
End Sub
Private Sub buscar()
If Option1 = True Then
Adodc1.Recordset.Find "usuario Like '" & Text4 & "'"
End If
If Option2 = True Then
Adodc1.Recordset.Find "Nombre Like '" & Text4.Text & "'"
End If
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
buscar
End If
End Sub

PRUEBEN AMBAS OPCIONES Y VERAN QUE FUNCIONAN POR EJMEPLO YO TENGO EN MI TABLA EN LA PARTE DE NOMBRES ALGUIEN QUE SE LLAMA Jazmin Lopez Guzman.

PON EN EL TEXBOX4 * Guzman y te mandara el nombre de Jazmin.

Suerte

una forma efectiva de hacer un buscador, insertar, borrar y actualizar datos es esta:
'boton de agregar dato, la funcion setbuttons deja ver solo los valores bVal
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
SetButtons False
End Sub
'boton de Borrar, borra el dato y se Mueve al Primer Registro
Private Sub Command2_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
End Sub
'boton de actualizar actualiza el dato y se mueve al primer registro
'vea que al iniciar la forma este boton no aparece debido a que en la funcion
'setbuttons esta como Not bVal y al iniciar la forma la funcion esta como
'SetButtons True por lo que activara solo los que este como bVal
Private Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
End Sub
'boton de cancelar
'vea que al iniciar la forma este boton no aparece debido a que en la funcion
'setbuttons esta como Not bVal y al iniciar la forma la funcion esta como
'SetButtons True por lo que activara solo los que este como bVal
'pero tiene aplicada la funcion SetButtons como true por lo que al presionarla
'y ser verdadera activara nuevamente los botones iniciales de la forma
Private Sub Command5_Click()
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.MoveFirst
SetButtons True
End Sub
'ejecuta la funcion buscar
Private Sub Command6_Click()
buscar
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "tabla1"
Text1.DataField = "nombre"
Text2.DataField = "usuario"
Text3.DataField = "password"
Text4.DataField = "id_centro_servicio"
SetButtons True
End Sub

falto esta parte
Private Sub SetButtons(bVal As Boolean)
Command1.Visible = bVal
Command2.Visible = bVal
Command3.Visible = Not bVal
Command4.Visible = bVal
Command5.Visible = Not bVal
End Sub
'Funcion que busca segun la cadena que sea introducida en el Text5
Private Sub buscar()
If Option1 = True Then
Adodc1.Recordset.Find "usuario Like '" & Text5.Text & "'"
End If
If Option2 = True Then
Adodc1.Recordset.Find "nombre Like '" & Text5.Text & "'"
End If
End Sub