Access e sql sono la stessa cosa??

topozoppo

Utente Attivo
19 Gen 2006
80
0
0
Ciauuuuuu

Mi ritrovo con una 15 di tabelle in access e vorrei trasferire il tutto su sql server,ho gia scritto la stringe di connessione per sql,ma ora mi sorge un dubbio.

Le tabelle vanno modificate???
Gli script devono essere appositi per sql oppure una connessione del genere va bene??

Posto il tutto

Dim id
id = Request.QueryString("id")
id = CInt(id)
' Verifico che la querystring abbia un valore numerico positivo
If IsNumeric(id) = False Or id < 1 Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Creo la stringa SQL per estrarre la domanda
Dim SQL
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_id = " & id
' Eseguo la stringa SQL e verifico che esista una domanda per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Stampo a video il risultato
%>
<h2><%=rs("msg_titolo")%></h2>
<div style="background-color: #EEEEEE;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
End If
rs.Close
' Creo la stringa SQL per estrarre le eventuali risposte
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, msg_data, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_risposte = " & id
' Eseguo la stringa SQL e verifico che esistano delle risposte per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF = False Then
' Imposto i colori alternati per le varie risposte
Dim c, colore
c = 0
While rs.EOF = False
colore = "#E0E0E0"
If c Mod 2 > 0 Then colore = "#EEEEEE"
%>
<div style="background-color: <%=colore%>;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
rs.MoveNext
c = c + 1
Wend
End If
rs.Close
End If
%>
<br>
<%If Session("username") <> "" Then%>
<p align="center">
<form method="post" action="messaggio.asp?id=<%=id%>&rispondi=OK">
<textarea name="messaggio" style="width: 250px; height: 100px;"></textarea><br><br>
<input type="submit" value="Rispondi">
</form>
<br>
<%
' Verifico che il modulo sia stato inviato
If Request.QueryString("rispondi") = "OK" Then
Dim messaggio
messaggio = Replace(Replace(Request.Form("messaggio"), "<", "<"), vbCrLf, "<br>")
' Verifico che sia stato specificato un messaggio
If Len(Trim(messaggio)) > 1 Then
' Recupero l'id dell'autore in funzione della sua username, memorizzata nella sessione
Dim autore
Set autore = cn.Execute("SELECT ute_id FROM utenti WHERE ute_username = '" & Session("username") & "'")
' Effettuo l'inserimento
rs.Open "messaggi", cn, 3, 3
rs.AddNew
rs("msg_autore") = autore("ute_id")
rs("msg_messaggio") = messaggio
rs("msg_risposte") = id
rs.Update
rs.Close
Set autore = Nothing
' Aggiorno la data della discussione a cui si è risposto
Dim data
Set data = cn.Execute("UPDATE messaggi SET msg_data = '" & Now() & "' WHERE msg_id = " & id)
Set data = Nothing
End If
' In qualsiasi caso rimando l'utente alla discussione in corso
Response.Redirect "messaggio.asp?id=" & id
End If
%>
</p>
<br>
<%End If%>

Grazie


Ciauuuuuu
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
non ho sql server avanti in questo momento, ma se sfogli il menu, vedrai che c'è un'opzione per importare i dati da access o da altri dbms

appena trovo una copia di sql server su cui fare un test ci scrivo un articolo ;)
 

topozoppo

Utente Attivo
19 Gen 2006
80
0
0
Ciaooo...

luca forse io mi sono spiegato male,ammettiamo che il mio hosting abbia sql server con 50 mb di spazio a disposizione del mio sito, una cosa del genere da lo stesso risultato anche con sql server oppure devo cambiare qualche parametro o variabile???

<%@LANGUAGE = VBScript%>
<!--#include file="adovbs.inc"-->
<html>
<head>
<title>ASP & database</title>
</head>
<body>

<%
Dim Cn, Mostra

' Apro la connessione
Set Cn = Server.CreateObject("ADODB.Connection")
<< (QUI LA STRINGA DI CONNESSIONE SQL)>>
' Eseguo la Query
Set Mostra = Cn.Execute("SELECT * FROM utenti")

' Estraggo tutti i record dal database
While Not Mostra.EOF
With Response
.Write "<p>"
.Write "Utente: " & Mostra("nome") & " " & Mostra("cognome")
.Write "</p>"
End With
Mostra.MoveNext
Wend

' Chiudo la connessine
Cn.Close
Set Cn = Nothing
%>

</body>
</html>

In parole povere anche se uso sql server ottengo sempre lo stesso risultato,cioè il nome e cognome della mia tabella?

Grazie

ciao
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
Pardon Francesco, non avevo capito :)

Su una query semplice come

SELECT * FROM utenti

non ci sono problemi, i quali nascono con query un po più complesse, anche se non troppo

è un po che non lo uso sql server quindi non ricordo bene le differenze sintattiche, ma a d esempio, quando usi il LIKE devi usare * invece che % o viceversa... o qualcosa del genere... non ricordo a memoria :p

In ogni caso il consiglio che do sempre è... prova! se non funziona vuol dire che c'è qualche problema ;)
 
Discussioni simili
Autore Titolo Forum Risposte Data
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
P [Visual Basic] access sql estrarre id vendite x cli e articolo con data maggiore del recordset Visual Basic 2
S codice SQL da access query complessa MS Access 0
H Modifica password database MS ACCESS da SQL MS Access 0
A Importare SQL in MS Access MS Access 0
U da access a sql MS Access 0
N Estrarre dati che danno una certa somma da Excel, Access o SQL Server Windows e Software 0
R [C#] Quali dipendenze occorrono su progetto "Setup" con Access Database? .NET Framework 0
G Appicazione HTML per inserimento dai in Database Access Microsoft HTML e CSS 0
K mc Access/phpmyamin MS Access 0
L Collegare un form html ad un database access Javascript 2
R salve a tutti sono un insegnante di pianoforte e a tempo perso mi sto dedicando ad access Presentati al Forum 1
G Access point con rete guest, consigli? Reti LAN e Wireless 0
P Access Inserimento data. MS Access 4
ges Microsoft ACCESS oltre ogni limite (tre manuali) Altri Annunci 2
@ [MS Access] Funzione Iif..is null... Database 0
P [MS Access] Sostituire un carattere in tutta la tabella MS Access 11
B tasti rapidi Access MS Access 1
M [MS Access] Pulsante su maschera che esegue azioni su altra maschera MS Access 3
C [MS Access] Pagina di dialogo con allegati MS Access 1
F Modificare report di etichette di access con vba MS Access 0
strambotto [MS Access] Smembramento tabella MS Access 5
D [MS Access] Piu' maschere con una sola tabella dati... MS Access 0
G [MS Access] Funzione ARROTONDA non definita nell'espressione MS Access 1
Spenalzo Creare tabelle multiple con Access via VBA MS Access 2
M [MS Access] Relazione tra maschere MS Access 1
G Access Point POE da esterno Reti LAN e Wireless 0
M [MS Access] controllo valido se MS Access 8
N [MS Access] Come relazionare DB Libri trasposti in Film e viceversa MS Access 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
D [MS Access] MS Access 2
S [MS Access] Apertura Maschera su nuov record in base a determinato ID MS Access 0
maria_ia Microsoft Access Windows e Software 0
S [MS Access] Apertura maschera MS Access 3
S [MS Access] trasformare un numero in lettere in un report MS Access 1
D [Visual Basic] [MS Access] query con parametro di testo Visual Basic 4
T mysql tutorial per importare tabelle access in mysql aiuto MySQL 2
P [MS ACCESS] Estrarre più somme da una query MS Access 4
D [MS Access] problemi con inserimento campo in una maschera MS Access 6
F [MS Access] Creare [stringa] da caselle combinate MS Access 0
D [MS Access] aiuto non riesco a capire MS Access 6
Arcadia [MS Access] Focus su campo specifico MS Access 1
akira [MS Access] Apertura recordset MS Access 1
V access 2007, maschera con caselle di selezione Programmazione 4
W [MS Access] Barre di scorrimento su maschere MS Access 0
A [MS Access] Pulsante per inserire allegati in campo maschera MS Access 0
J [MS Access] Filtro su combo in sottomaschera MS Access 11
Arcadia [MS Access] Implementazione progetto con nuove funzioni. MS Access 0
A [MS Access] Aprire maschera con sottomaschera su ultimo record MS Access 0
A [MS Access] Maschera per interagire con tabella excell MS Access 19

Discussioni simili