Red de conocimiento informático - Problemas con los teléfonos móviles - Principiante de VB (0 conceptos básicos) cómo usar la programación de VB para conectarse a SQL y operarlo

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!