Base de datos y tabla creada con SQL Cómo escribir código en ASP para que la tabla en SQL esté conectada a ella a través de la instrucción set Table, como se muestra en la figura:
Opción explícita
Contraseña mdb privada como cadena
Ruta mdb privada como cadena
Servidor privado como cadena
Privado ID de usuario como cadena
Contraseña privada como cadena
Nombre de base de datos privada como cadena
Propiedad pública Letl_mdbPath(str_mdbPath como cadena)
mdbPath = str_mdbPath
Propiedad final
Propiedad pública Let l_mdbPassword(str_mdbPassword As String)
mdbPassword = str_mdbPassword
Propiedad final
Propiedad pública Let l_Server(str_Server As String)
Servidor = str_Server
Propiedad final
Propiedad pública Let l_LoginID(str_LoginID As String)
UserID = str_LoginID
Propiedad final
Propiedad pública Let l_Password(str_Password As String)
Contraseña = str_Password
Fin
Propiedades públicas Let l_DatabaseName(str_ DatabaseName As String)
DatabaseName = str_DatabaseName
Propiedades finales
'Crear base de datos
Función pública CreateDatabase() como entero
Dim sql_connString como cadena
Dim conn como ADODB.Set conn = New ADODB.Connection
sql_connString = "SI EXISTE (SELECCIONE el nombre DE master.dbo.sysdatabases DONDE nombre = N'" & DatabaseName & "')"
sql_connString = sql_connString + " DROP DATABASE [" & DatabaseName & "]"
sql_connString = sql_connString + " CREAR BASE DE DATOS [" & Nombre de la base de datos & "]"
conn.ConnectionString = "driver=;" & _
"server=" & Servidor & "; " & _
"uid=" & ID de usuario & ";" & _
"pwd=" &.contraseña& ";" &
_
"database=master"
conn.Open
conn.BeginTrans
conn.Execute sql_connString
Si conn..Errors.Count > 0 entonces
conn.RollbackTrans
Else
conn.CommitTrans
CreateDatabase = 1
Finalizar si
conn.BackTrans
Con.Close
Establecer conn = Nada
Finalizar función
'Crear usuario de inicio de sesión en la base de datos
Función pública CreateLoginUser(Nombre de inicio de sesión como cadena, Contraseña de inicio de sesión como cadena) Como entero
Dim tmp_Str como cadena
Dim conn_mdb como nueva ADODB.Connection
Atenuar conn_Sql como nueva ADODB.Connection
Atenuar conn_Sql como nueva ADODB.Connection mientras no sea rs_mdb.EOF
conn_Sql.Execute CStr (rs_mdb("CreateTable"))
rs_mdb.MoveNext
Fin
Si conn_Sql.Errors.Count > 0 Entonces
conn_Sql .RollbackTrans
CreateTable = 0
rs_mdb.Close
Función de salida
Else
conn_Sql.CommitTrans rs_mdb .Close
End If
'En el tercer paso, obtenga la declaración SQL de la tabla AlertTable y modifique la tabla de la base de datos
' p> rs_mdb.Open "AlertTable", conn_mdb, adOpenDynamic
Si no (rs_mdb.EOF y rs_mdb.BOF) entonces
rs_mdb.MoveFirst
conn_Sql.BeginTrans
Mientras no es rs_mdb.EOF
conn_Sql.Execute CStr(rs_mdb("AlertTable"))
rs_mdb.MoveNext
Wend
Si conn _Sql.Errors.Count > 0 Entonces
conn_Sql.RollbackTrans
CreateTable = 0
rs_mdb.Close
Salir Función
Else
conn_Sql.CommitTrans
rs_mdb.Close
Fin.
Cerrar
End If
Else
CreateTable = 0
End If
'En el cuarto paso, obtendrá la declaración SQL de la tabla CreateView para crear una vista de la base de datos
rs_mdb. Open "CreateView", conn_mdb, adOpenDynamic
Si no (rs_mdb.EOF y rs_mdb. EOF y rs_mdb.EOF).EOF y rs_mdb.BOF) Luego
rs_mdb.MoveFirst
conn_Sql.BeginTrans
Mientras no sea rs_mdb.EOF
conn_Sql.BeginTransSi no es rs_Sql.EOF, entonces
rs_Sql.MoveFirst
Mientras no es rs_Sql.EOF
rs_Sql.Delete
rs_Sql .MoveNext
Wend
Finalizar si
Si no (rs_mdb.BOF y rs_mdb.EOF) Entonces
rs_mdb.MoveFirst< / p>
conn_Sql.BeginTrans
Mientras no sea rs_mdb.EOF
rs_ Sql.AddNew