Principiante de VB (0 conceptos básicos) cómo usar la programación de VB para conectarse a SQL y operarlo
Opción explícita
Función privada Selectsql(SQL como cadena) As ADODB.Recordset 'Devolver objeto ADODB.Recordset
Dim ConnStr As String
Atenuar Conn como ADODB.Connection
Atenuar rs como ADODB.Recordset
Establecer rs = Nuevo ADODB.Recordset
Establecer Conn = Nuevo ADODB.Connection
'En caso de error, GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1; Persist Security Info=True; ID de usuario=Iniciar sesión nombre de usuario de la base de datos (el valor predeterminado es sa); Contraseña=Iniciar sesión Contraseña de la base de datos; Catálogo inicial=nombre de la base de datos; Fuente de datos=nombre del servidor (predeterminado: MERRYCHINA)" 'Esta es la declaración para conectarse a la base de datos SQL
Conn.Open ConnStr
rs .CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Establecer Selectsql = rs
'Función de salida
'MyErr:
'Establecer rs = Nada
'Establecer Conn = Nada 'Liberar recursos relacionados del sistema
'MsgBox Err.Description, vbInformation, " El sistema indica " 'Mostrar mensaje de error
Finalizar función
Private Sub Form_Load()
Dim SQL As String
Dim rs Como ADODB .Recordset
Dim X As Long
En caso de error, vaya a Err_box
SQL = "seleccione * de la tabla de usuarios"
Establecer rs = Selectsql(SQL)
Si rs.RecordCount gt; 0 Entonces
rs.MoveFirst
Para X = 1 a rs.RecordCount
Combo1.AddItem rs.Fields("Nombre de usuario").Value
rs.MoveNext
Siguiente X
Combo1.ListIndex = 0
Finalizar si
p>
rs.Close
Salir de Sub
Err_box:
Finalizar Sub
Subcomando privado1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "¡Ingrese la contraseña! " , 16
Text1.SetFocus
Salir Sub
Finalizar si
Si Combo1.Text = "" Entonces
MsgBox "¡Seleccione el usuario que inició sesión!", 16
Combo1.SetFocus
Salir de Sub
Fin si
SQL = " SELECCIONAR * DE la tabla de usuarios DONDE nombre de usuario ='" amp; Combo1.Text amp "' AND contraseña ='" amp Text1.Text amp "' "
Establecer rs = Selectsql(SQL) )
Si rs.RecordCount gt; 0 Entonces
Form1.Show 'El formulario principal que desea abrir
MsgBox "Felicitaciones, hermano, el inicio de sesión es ¡exitoso!", 64 , "Preguntar"
Descargarme
Else
MsgBox "¡La contraseña es incorrecta, vuelva a ingresarla!", 16, " Prompt"
Text1.SetFocus
Finalizar si
End Sub
'************ ******** ******************************************* *********
'Instrucciones: 1) Haga referencia a la biblioteca Microsoft ActiveX Data Objects 2.8 en el proyecto, también hay otras versiones disponibles, como: 2.0
' 2) Agregue Texe1.text(texto) al formulario control Box), Combo1.text (control cuadro combinado), Command1 (botón Comando) uno cada uno
' 3) Cree una base de datos en SQL Server2000, cree una nueva tabla "Tabla de usuario", la tabla contiene "ID, Nombre, Contraseña" y otros campos, y luego copie el código anterior, OK
4) El método anterior no requiere cargar el control ADO, ¡Lo cual es conveniente!