Přes ADO to vypadá jednoduše. Nenašel jsem ale způsob jak to donutit tvořit relace mezi tabulkami.<br><br><div class="gmail_quote">2009/5/5 <span dir="ltr"><<a href="mailto:RMiklos@pss.sk">RMiklos@pss.sk</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><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/" target="_blank"><font size="2" face="sans-serif">http://www.connectionstrings.com/</font></a>
<br><a href="http://www.carlprothman.net/Default.aspx?tabid=81" target="_blank"><font size="2" face="sans-serif">http://www.carlprothman.net/Default.aspx?tabid=81</font></a>
<br>
<br>
<br>
<br>
<br>
<table width="100%">
<tbody><tr valign="top">
<td><font size="1" color="#5f5f5f" face="sans-serif">From:</font>
</td><td><font size="1" face="sans-serif">Ondrej Beranek <<a href="mailto:rainbof@gmail.com" target="_blank">rainbof@gmail.com</a>></font>
</td></tr><tr valign="top">
<td><font size="1" color="#5f5f5f" face="sans-serif">To:</font>
</td><td><font size="1" face="sans-serif">Konference PyCZ <<a href="mailto:python@py.cz" target="_blank">python@py.cz</a>></font>
</td></tr><tr valign="top">
<td><font size="1" color="#5f5f5f" face="sans-serif">Date:</font>
</td><td><font size="1" face="sans-serif">04.05.2009 17:46</font>
</td></tr><tr valign="top">
<td><font size="1" color="#5f5f5f" face="sans-serif">Subject:</font>
</td><td><font size="1" face="sans-serif">[python] access soubor - vytvoření
relací</font>
</td></tr><tr valign="top">
<td><font size="1" color="#5f5f5f" face="sans-serif">Sent by:</font>
</td><td><font size="1" face="sans-serif"><a href="mailto:python-bounces@py.cz" target="_blank">python-bounces@py.cz</a></font></td></tr></tbody></table>
<br>
<hr noshade>
<br>
<br>
<br><font size="3"><div class="im">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></div>
Díky za všechny typy.</font><tt><font size="2">_______________________________________________<div class="im"><br>
Python mailing list<br>
<a href="mailto:Python@py.cz" target="_blank">Python@py.cz</a><br>
</div></font></tt><div><div></div><div class="h5"><a href="http://www.py.cz/mailman/listinfo/python" target="_blank"><tt><font size="2">http://www.py.cz/mailman/listinfo/python</font></tt></a>
<br>
<br>
</div></div><br>_______________________________________________<br>
Python mailing list<br>
<a href="mailto:Python@py.cz">Python@py.cz</a><br>
<a href="http://www.py.cz/mailman/listinfo/python" target="_blank">http://www.py.cz/mailman/listinfo/python</a><br></blockquote></div><br>