Συνδεση Access με VB

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Marinos Stergiou
Δημοσιεύσεις: 741
Εγγραφή: 12 Νοέμ 2006 14:49
Τοποθεσία: Τριτοκοσμική

Συνδεση Access με VB

Δημοσίευση από Marinos Stergiou » 16 Ιουν 2008 18:07

Παράδειγμα για τον υπολογιστή σου

Κώδικας: Επιλογή όλων

Dim sConn As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim spath As String
Dim name, sname, dieuth, tele, mobiletel, fax, email, pplirofories, etairia, dieuetaire1, tilephonoetaireias1, tilephonoetaireias2, arithmistrapezikoulogariasmou, eponimiatrapezas, afm, doy, adt As String
Dim sSQL As String 
spath = App.Path & "C:\Documents and Settings\....... 
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & spath
sSQL = "INSERT INTO pelates (name, sname, dieuth, tele, mobiletel,fax,email,pplirofories ,etairia, dieuetaire1, tilephonoetaireias1, tilephonoetaireias2 ,arithmistrapezikoulogariasmou, eponimiatrapezas, afm, doy, adt ) values ( '" & Text1.Text & "','" & Text2.Text & "' , '" & Text3.Text & "' , '" & Text4.Text & "' ,'" & Text5.Text & "' ,'" & Text6.Text & "' ,'" & Text7.Text & "','" & Text8.Text & "' ,'" & Text9.Text & "' ,'" & Text10.Text & "' ,'" & Text11.Text & "' ,'" & Text12.Text & "' ,'" & Text13.Text & "' ,'" & Combo1.Text & "' ,'" & Text14.Text & "' ,'" & Text15.Text & "' ,'" & Text16.Text & "' )"
'ÔÝëïò SQL åñþôçìá
db.ConnectionString = sConn
db.Open "mydb2"
rs.ActiveConnection = db
rs.LockType = adLockOptimistic 
rs.CursorType = adOpenKeyset
rs.Open sSQL 


Τώρα αν θέλεις να παίζει και στο ιντερνετ

Μάλλον έχεις δημιουργήσει την database.
όπότε δίνω παραδειγμα κάποιου άλλου

1) Δημιουργείς μια βάση δεδομένων USERS
2) Στη βάση δημιουρείς ένα πίνακα USERS
3) Στο πίνακα users δημιουργείς τα παρακάτω πεδία με σειρά name, email, sex, title, link, summary

Παρακάτω είναι το αρχείο form.asp

Κώδικας: Επιλογή όλων

<!--#include file="adovbs.asp"--> 
<% 
' H φόρμα στο κάτω μέρος της σελίδας. 

if request.form&#40;"name"&#41; <> "" then 
' Έλεγχος αν τοποθετήθηκαν λέξεις στα πεδία. 
' Αν ναι τότε τοποθετούνται στη βάση 

set dbConn=server.createobject&#40;"adodb.connection"&#41; 
ConnString = "DRIVER=Microsoft Access Driver &#40;*.mdb&#41;;DBQ=" &Server.MapPath&#40;"\users\users.mdb"&#41; & ";user=;PASSWORD=" 
' Η database είναι στο "users" folder του root. 
' Στο παράδειγμα ή βάση μας είναι η users.mdb 
dbConn.Open ConnString 
' Σύνδεση με τη βάση. 

dim rs 
set rs = Server.CreateObject&#40;"ADODB.RecordSet"&#41; 
rs.cursorlocation = adUseServer 
rs.CursorType = adOpenKeySet 
rs.LockType = adLockOptimistic 

rs.open "users",dbconn, , ,adCmdTable 
rs.addnew 
if request.form&#40;"name"&#41; <> "" then 
' Έλεγχος αν τοποθετήθηκαν λέξεις στα πεδία. 
rs&#40;"name"&#41; = request.form&#40;"name"&#41; 
end if 
if request.form&#40;"email"&#41; <> "" then 
rs&#40;"email"&#41; = request.form&#40;"email"&#41; 
end if 
if request.form&#40;"sex"&#41; <> "" then 
rs&#40;"sex"&#41; = request.form&#40;"sex"&#41; 
end if 
if request.form&#40;"title"&#41; <> "" then 
rs&#40;"title"&#41; = request.form&#40;"title"&#41; 
end if 
if request.form&#40;"link"&#41; <> "" then 
rs&#40;"link"&#41; = request.form&#40;"link"&#41; 
end if 
if request.form&#40;"summary"&#41; <> "" then 
rs&#40;"summary"&#41; = request.form&#40;"summary"&#41; 
end if 
RS.update 

rs.close 
set rs = nothing 
dbconn.close 
set dbconn = nothing 
' Κλείνουμε την σύνδεση 

response.write "Η βάση ανανεώθηκε με επιτυχία" 
' Εμφάνιση επιτυχούς μηνύματος 

else 
' Αν δεν συμπληρώθηκε η φόρμα τότε θα παρουσιάσουμε τη φόρμα. 
%> 
<FORM METHOD="POST" ACTION="form.asp"> 
<!-Πρόσεξες παρουσιάζει τη φόρμα από μόνο του. --> 
<TABLE cellpadding="4" cellspacing="4" border="0"> 
<TR> 
<TD align="right"><span class="highlight">Όνομα &#40;Required&#41;&#58;</span></TD> 
<TD><INPUT TYPE="TEXT" NAME="name"></TD> 
</TR> 
<TR> 
<TD align="right"><span class="highlight">E-mail&#58;</span></TD> 
<TD><INPUT TYPE="TEXT" NAME="email"></TD> 
</TR> 
<TR> 
<TD valign="top" align="right"><span class="highlight">Φύλο&#58;</span></TD> 
<TD><input type="radio" value="Αρσενικό" name="sex">Αρσενικό 
<br><input type="radio" value="Θηλυκό" name="sex">Θηλυκό</TD> 
</TR> 
<TR> 
<TD align="right"><span class="highlight">Τίτλος του site&#58;</span></TD> 
<TD><INPUT TYPE="TEXT" NAME="title"></TD> 
</TR> 
<TR> 
<TD align="right"><span class="highlight">Link ή URL&#58;</span></TD> 
<TD><INPUT TYPE="TEXT" NAME="link"></TD> 
</TR> 
<TR> 
<TD valign="top" align="right"><span class="highlight">Περιγραφή&#58;</span></TD> 
<TD><textarea rows="8" cols="40" name="summary"></textarea></TD> 
</TR> 
<TR> 
<TD colspan=2 align=center><input type="submit" value="Submit"> <input type="reset" value="Reset"></TD> 
</TR> 
</TABLE> 
</FORM> 
<% 
end if 
%>
Κατέβασε από εδώ το adovps.aspκαι τοποθέτησέ το στο users folder.

Υπάρχει κι αυτό αν σε ενδιαφέρει http://www.brilliantdatabase.com/editions_wizard.html
Τελευταία επεξεργασία από το μέλος Marinos Stergiou την 18 Ιουν 2008 01:13, έχει επεξεργασθεί 1 φορά συνολικά.

Άβαταρ μέλους
xristos0718
Δημοσιεύσεις: 14
Εγγραφή: 18 Μαρ 2008 15:12

Συνδεση Access με VB

Δημοσίευση από xristos0718 » 17 Ιουν 2008 08:43

:P :P

Ευχαριστω πολυ με βοηθησες
Εικόνα

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες