Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



[MS Word] Přes makro do databáze SQL

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: [MS Word] Přes makro do databáze SQL

Autor: roman111

9:44:27 10.07.2009

aha, výše to muti2 psal, a opravil jsem i tu ut_value=rc.Fields(1).Value a už to chybu nepíše, ale nic mi nenačte, i když v tabulce záznamy mám

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: roman111

9:19:56 10.07.2009

Zkoušel jsem tohle řešení:
Sub Nacti()

Dim cn As ADODB.Connection
Dim rc As ADODB.Recordset
Set cn = New ADODB.Connection
Set rc = New ADODB.Recordset

'Napojení na db
With cn
.ConnectionString = "Provider=;Persist Security Info=False;User ID=;Password=;Initial Catalog=;Data Source=;"
.CursorLocation = adUseServer
.Open
End With

'Otevření selectu
rc.Open "(SELECT * from tabulka)", cn
Do Until rc.EOF
rc.Fields(1).Value
rc.MoveNext
Loop

End Sub

ale jednak nevím co dosadit do provider a source a pak mi to už na Dim cn As ADODB.Connection hlásí: Compile error: User-defined type not defined, jsem začátečník s vba a nevím si s tím rady, poradíte někdo prosím? Vždyť přeci tím DIM cn to definuji, nebo ne?

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: Maty

14:32:32 31.05.2007

no napřed by si mohl říct jakou ti to hází chybu případně kde máš problém.
jinak mi je docela záhadou toto

rc.Fields(1).Value

kdyby tam bylo třeba

ut_value=rc.Fields(1).Value

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: muti2

14:03:49 31.05.2007

Můžeš mi prosím poradit co mam tady špatně?

Private Sub Nacti()

Dim cn As ADODB.Connection
Dim rc As ADODB.Recordset
Set cn = New ADODB.Connection
Set rc = New ADODB.Recordset

'Napojení na db
With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=uziv;Password=heslo;Initial Catalog=databaze;Data Source=server;"
.CursorLocation = adUseServer
.Open
End With

'Otevření selectu
rc.Open "(SELECT * from subjekt)", cn
Do Until rc.EOF
rc.Fields(1).Value
rc.MoveNext
Loop

End Sub

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: muti2

11:36:33 31.05.2007

Private Sub Nacti()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Password=;Initial Catalog=xxx;Data Source=servername;"
.CursorLocation = adUseServer
.Open
.CommandText = "SELECT * FROM subjekt"
.CommandType = adCmdText
End With

End Sub


takhle to zatim mam. staci to tak? vyuziji ty data primo ve wordu? jak?

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: muti2

11:29:55 31.05.2007

jj. me jde jen o toto. do wordu nacist select z db (mozna vice nez jeden) a potom tyto atributy selectu pouzit ve wordu. budu to pak pouzivat hromadne.

takze ted mam toto:

Private Sub Nacti()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Password=;Initial Catalog=xxx;Data Source=servername;"
.CursorLocation = adUseServer
.Open
.CommandText = "SELECT * FROM subjekt"
.CommandType = adCmdText
.Execute
End With

End Sub

co dale musim udelat??? mimo prejmenovani usera, hesla, servername. co patri do catelogu + co mi tam chybi??

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: Maty

11:26:09 31.05.2007

no vida že sis poradil :)

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: muti2

11:22:32 31.05.2007

oj, nemel jsem tam microsoft ActiveX Data object 2.8 library

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: muti2

11:14:27 31.05.2007

Zatím to mám takto:

Private Sub Nacti()

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

With cn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Password=;Initial Catalog=pubs;Data Source=servername;"
.CursorLocation = adUseServer
.Open
End With

Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveConnection = cnn

End Sub

Hlásí to chybu: compile-error, user-defined type not defined
Aktivovane dll mam:
- visual basic for applications
- microsoft word 11.0 object library
- ole automation
- microsoft office 11.0 object library
- microsoft ADO ext. 2.8 for ddl and security
- microsoft jet and replication object 2.6 library


prosim o pomoc. zn.: zacatecnik

Citovat příspěvek

 

Re: [MS Word] Přes makro do databáze SQL

Autor: Maty

10:27:34 31.05.2007

základem je připojení k serveru

tzn vytvoření conection

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
'Musíš mít somzřejmě správně connection string-tohle je příklad
cnn.Provider = "MSDASQL"
cnn.Open "DSN=...;Database=...;", "UID", "PWD"

pak katalog

Dim Catalog As New ADOX.Catalog
Set Catalog.ActiveConnection = cnn
...
Více najdeš zde,část ADOX

http://msdn2.microsoft.com/en-us/library/aa139984(office.10).aspx

Citovat příspěvek

 

[MS Word] Přes makro do databáze SQL

Autor: muti2

9:13:47 31.05.2007

Cau lidi,
potreboval bych v sablone definovat makro, ktere mi connectne databazi a ja budu moci v sablone dane atributy tabulek pouzit. Jak napsat connect na databazi? Lze pripojit vice tabulek najednou, pripadne jestli se tam napise primo select. WORD 2003

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: