Search Forum Home   Visual FoxPro  Client/Server  odbc dsn...  odbc dsn    8/23/2011 6:01:19 AM Astalus 126 posts odbc dsn  (N/A)  incerc sa ma conectez la o baza de date sql server. primele doua metode functioneaza ; a treia nu (login failed for user 'administrator'). *----------------------------------------------------------------- * conexiune la baza_omega (sql server) *----------------------------------------------------------------- fraza= "SELECT j.regiune,j.judet,j.capitala, l.loc " +; "FROM baza_omega.dbo.judete j, baza_omega.dbo.localitati l "+; "WHERE l.jud = j.jud order by l.loc " ad = CreateObject("ADODB.Connection") *--merge ------------------------------------ cs1 ="FILEDSN=sql server bv.dsn" ad.Open(cs1) rs = ad.execute(fraza ) messagebox ("cs1 merge") ad.close *-- merge ------------------------------------ cs2 = "dsn=test sql server;"+; "driver=sql server;"+; "server=(local);"+; "UID=Administrator;"+; "PWD=;"+; "DATABASE=baza_omega;"+; "APP=Microsoft Visual FoxPro;"+; "WSID=TIGRU;"+; "Trusted_Connection=yes" ad.Open(cs2) rs = ad.execute(fraza) messagebox ("cs2 merge") ad.close *-- nu merge ------------------------------------ cs3= "Provider=sqloledb;"+; "Data Source=(local);"+; "Initial Catalog=baza_omega;"+; "User Id=administrator" * "User Id=sa;password=" ad.Open(cs3) rs = ad.execute(fraza ) messagebox ("cs3 merge") ad.close  8/23/2011 8:10:47 AM neagu_laurentiu 101 posts Re: odbc dsn  (N/A) ad.Open('Provider=SQLOLEDB;Data Source=(local);User ID=administrator;Password=;Initial Catalog=baza_omega','administrator','') Deci dupa string-ul de conectare mai urmeaza doi parametri: userul si parola.  8/23/2011 9:57:43 AM Astalus 126 posts Re: odbc dsn  (N/A) primesc aceeasi eroare  8/23/2011 6:21:02 PM Astalus 126 posts Re: odbc dsn  (N/A)  functioneaza cu : ad.ConnectionString= "Provider=sqloledb;"+; "data source=(local);" +; "initial catalog=baza_omega;"+; "User Id=sa;"+; "password=;"+; "Trusted_Connection=yes" si inca o intrebare vo rog. poate fi trimis setul de inregistrari create prin "execute" intr-un cursor ?  8/23/2011 10:06:48 PM neagu_laurentiu 101 posts Re: odbc dsn  (N/A) c=CREATEOBJECT('ADODB.Connection') c.Open(...) r=CREATEOBJECT('ADODB.Recordset') r.Open("SELECT * FROM table",c,0) a=CREATEOBJECT('CursorAdapter') a.Alias='tbl' a.DataSourceType="ADO" IF a.CursorFill(.F.,.F.,-1,r) a.CursorDetach() ELSE LOCAL _error[1,7] AERROR(_error) ?_error[1,2] ENDIF Aici ai cursorul nativ FoxPro cu numele tbl.  8/24/2011 7:47:59 PM Astalus 126 posts Re: odbc dsn  (N/A) multumesc, D-l Neagu  Page 1 of 1   Visual FoxPro  Client/Server  odbc dsn... Flat View Tree View Oldest To Newest Newest To Oldest