<font size=2 face="sans-serif">Ja pouzivam ADO: </font>
<br><font size=2 face="sans-serif">Priklad spracovanie (update) *.dbf suboru:</font>
<br>
<br><tt><font size=3 color=blue>#</font></tt><tt><font size=3><br>
"""</font></tt><tt><font size=3 color=#ff00ff><br>
Spracovanie DBF databazy pomocou ADO</font></tt><tt><font size=3><br>
"""</font></tt><tt><font size=3 color=#8100ff><br>
import</font></tt><tt><font size=3> string</font></tt><tt><font size=3 color=blue><br>
# Pouzitie ADO</font></tt><tt><font size=3 color=#8100ff><br>
import</font></tt><tt><font size=3> win32com.client<br>
conn=win32com.client.Dispatch('</font></tt><tt><font size=3 color=#ff00ff>ADODB.Connection</font></tt><tt><font size=3>')</font></tt><tt><font size=3 color=blue><br>
# Connection String</font></tt><tt><font size=3><br>
DSN='</font></tt><tt><font size=3 color=#ff00ff>Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\Perl_Python\Database;</font></tt><tt><font size=3 color=#6260a1>\</font></tt><tt><font size=3 color=#ff00ff><br>
Extended Properties=FoxPro
3.0;</font></tt><tt><font size=3>'</font></tt><tt><font size=3 color=blue><br>
# print DSN</font></tt><tt><font size=3><br>
conn.Open(DSN)<br>
rs = win32com.client.Dispatch('</font></tt><tt><font size=3 color=#ff00ff>ADODB.Recordset</font></tt><tt><font size=3>')<br>
rs_name = '</font></tt><tt><font size=3 color=#ff00ff>MyRecordset</font></tt><tt><font size=3>'<br>
rs.CursorLocation = 3<br>
rs.Open("</font></tt><tt><font size=3 color=#ff00ff>SELECT * FROM
rkun000</font></tt><tt><font size=3>", conn,1,3)<br>
</font></tt><tt><font size=3 color=blue><br>
# Vypis tabulky a update</font></tt><tt><font size=3><br>
rs.MoveFirst()<br>
count = 0</font></tt><tt><font size=3 color=#813f62><b><br>
while</b></font></tt><tt><font size=3> 1: <br>
</font></tt><tt><font size=3 color=#813f62><b>if</b></font></tt><tt><font size=3> rs.EOF:<br>
</font></tt><tt><font size=3 color=#813f62><b>break</b></font></tt><tt><font size=3> <br>
</font></tt><tt><font size=3 color=#813f62><b>else</b></font></tt><tt><font size=3>:
<br>
</font></tt><tt><font size=3 color=blue>#
pocet viet</font></tt><tt><font size=3><br>
count = count + 1<br>
nazov = rs.Fields.Item('</font></tt><tt><font size=3 color=#ff00ff>NAZOV</font></tt><tt><font size=3>').Value<br>
rs.Fields.Item('</font></tt><tt><font size=3 color=#ff00ff>NAZOV</font></tt><tt><font size=3>').Value
= string.capwords(nazov)<br>
</font></tt><tt><font size=3 color=#813f62><b>print</b></font></tt><tt><font size=3> rs.Fields.Item('</font></tt><tt><font size=3 color=#ff00ff>NAZOV</font></tt><tt><font size=3>').Value<br>
</font></tt><tt><font size=3 color=blue>#
update aktualnu vetu</font></tt><tt><font size=3><br>
rs.Update()<br>
</font></tt><tt><font size=3 color=blue>#
next record</font></tt><tt><font size=3><br>
rs.MoveNext() <br>
</font></tt><tt><font size=3 color=#813f62><b><br>
print</b></font></tt><tt><font size=3> "</font></tt><tt><font size=3 color=#ff00ff>Pocet
spracovanych viet v databaze = %d</font></tt><tt><font size=3>" %
count<br>
</font></tt><tt><font size=3 color=blue><br>
# Ukoncit spojenie</font></tt><tt><font size=3><br>
conn.Close()</font></tt>
<br>
<br>
<br><font size=2 face="sans-serif">Na Accsess musis zmenit iba connection
string - pohladaj si ho (mozno tu):</font>
<br><a href=http://www.connectionstrings.com/><font size=2 face="sans-serif">http://www.connectionstrings.com/</font></a>
<br><a href="http://www.carlprothman.net/Default.aspx?tabid=81"><font size=2 face="sans-serif">http://www.carlprothman.net/Default.aspx?tabid=81</font></a>
<br>
<br>
<br>
<br>
<br>
<table width=100%>
<tr valign=top>
<td><font size=1 color=#5f5f5f face="sans-serif">From:</font>
<td><font size=1 face="sans-serif">Ondrej Beranek <rainbof@gmail.com></font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face="sans-serif">To:</font>
<td><font size=1 face="sans-serif">Konference PyCZ <python@py.cz></font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face="sans-serif">Date:</font>
<td><font size=1 face="sans-serif">04.05.2009 17:46</font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face="sans-serif">Subject:</font>
<td><font size=1 face="sans-serif">[python] access soubor - vytvoření
relací</font>
<tr valign=top>
<td><font size=1 color=#5f5f5f face="sans-serif">Sent by:</font>
<td><font size=1 face="sans-serif">python-bounces@py.cz</font></table>
<br>
<hr noshade>
<br>
<br>
<br><font size=3>Ahoj, <br>
<br>
potřeboval bych nějak z python skriptu stvořit access databázi (mdb
soubor) a aby toho nebylo dost potřeboval bych v ní ještě vytvořit
relace. Je soubor datové výměny která probíhá denně. Ty relace stačí
vyrobit až po vytvořeníé tabulek.<br>
Přítomnost accessu neni problem. <br>
<br>
Díky za všechny typy.</font><tt><font size=2>_______________________________________________<br>
Python mailing list<br>
Python@py.cz<br>
</font></tt><a href=http://www.py.cz/mailman/listinfo/python><tt><font size=2>http://www.py.cz/mailman/listinfo/python</font></tt></a>
<br>
<br>