|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Componente Database
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
Abrir a conexão com a base de dados Access:
VAR_CONN = "DBQ=C:\basedados\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"
VAR_CONN = VAR_CONN & ";uid=usuario;pwd=senha;SystemDB=c:\basedados\base.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open VAR_CONN
Abrir a conexão com a base de dados SQL Server:
VAR_CONN = "DRIVER={SQL SERVER};SERVER=nomedoservidor; UID=login;"
VAR_CONN = VAR_CONN & "PWD=senha;DATABASE=nomedobancodedados;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open VAR_CONN
Abrir a conexão com a base de dados Oracle:
VAR_CONN = "User ID=NOME_USUARIO; Password=SENHA; Data Source=NOME_DATA_SOURCE;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open VAR_CONN
Selecionar registros:
sql = "Select nome , email from cadastro where nome ='" & Request.Form("nome") & "'"
Set Registro = Connection.execute(sql)
If Registro.EOF And Registro.BOF Then
Set Registro = Nothing
Response.Write "Cadastro não encontrado!"
Else
Response.Write "<table>"
Response.Write "<td>" & Registro("nome") & "</td><td>" & Registro("email") & "</td>"
Response.Write "</table>"
End If
Inserir registros na base de dados:
sql = "INSERT INTO cadastro (nome,email,comentarios) VALUES ('" & Request.Form("nome") & "','" & Request.Form("email") & "'," & "'" & Request.Form("comentario") & "')"
Connection.execute (sql)
Atualizar registros na base de dados:
sql = "UPDATE cadastro nome = '" & Request.Form("nome") & "' where email = '" & Request.Form("email") & "'"
Connection.execute (sql)
T+,
|
|
|
|
|
