buna ziua,

doresc sa consult o baza de date, prin intermediul unei conexiuni ODBC, intr-un script xx.vbs

puteti sa-mi dati un exemplu de astfel de script ?

multumesc

xp / sp2

am incercat

acesta este scriptul  /  nu trece de ad.open

mesajul este "[microsoft][odbc driver manager  ] data source not found and not default driver specified"

toate datele sunt luate de aici si functioneaza ca macrou excel

'Sub Macro1()
'
' Macro1 Macro
' Macro recorded 29.01.2010 by AstalusMircea
'
'    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
'        "ODBC;DSN=access la 'vanzari;UID=;;SourceDB=D:\aplicatie\baza_date\vinzari.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate" _
'        ), Array("=Machine;Null=Yes;Deleted=Yes;")), Destination:=Range("A1"))
'        .CommandText = Array("SELECT clienti.dencl" & Chr(13) & "" & Chr(10) & "FROM clienti clienti")
'       
'    End With
'End Sub

Dim ad
Dim sql_query
Dim objFSO, objOutFile
Dim intCount, i
Set objFSO = CreateObject("Scripting.FileSystemObject")     'create  and open text file
Set objOutFile = objFSO.OpenTextFile("d:\aplicatie\automation\xx.txt", 8, True)
sql_query = "SELECT * FROM persoane"       'sql query
set ad = CreateObject("ADODB.Connection")      'create and open ODBC connection

ad.ConnectionString= "ODBC;DSN=access la vanzari;" & _
                     "UID=;;SourceDB=D:\aplicatie\baza_date\vinzari.dbc;" & _
                     "SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;" & _
                     "Collate=Machine;Null=Yes;Deleted=Yes"
msgbox("pas1")
ad.Open
msgbox("pas2")
Set rs = ad.execute(sql_query)        'execute query
intCount = rs.Fields.Count        
do while not rs.eof         'loop to cycle through the table
 for i = 1 to intCount     'loop to cycle through fields of each table and write to file
  objOutFile.Write rs.fields.item(i) & vbTab
 next
 objOutFile.WriteLine vbCrLf       'newline
   
loop
ad.close

err

"provider cannot be found. it may not be properly installed"

lucrez cu vfp v6

"access la vanzari " este numele conexiunii odbc la o baza .dbc .

o folosesc in mod curent.(in excel pt import de date etc) 

functioneaza

inserez codul asa cum functioneaza la mine

Dim ad
Dim sql_query
Dim objFSO, objOutFile
Dim intCount, i
Set objFSO = CreateObject("Scripting.FileSystemObject")     'create  and open text file
Set objOutFile = objFSO.OpenTextFile("d:\aplicatie\automation\xx.txt", 8, True)
sql_query = "SELECT cnp,nume,prenume,adresa,sex,codpostal FROM persoane"       'sql query
set ad = CreateObject("ADODB.Connection")      'create and open ODBC connection
ad.ConnectionString= "DRIVER=Microsoft Visual FoxPro Driver;" & _
                     "UID=;;SourceDB=D:\aplicatie\baza_date\vinzari.dbc;" & _
                     "SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;" & _
                     "Collate=Machine;Null=Yes;Deleted"
ad.Open
Set rs = ad.execute(sql_query)        'execute query
intCount = rs.Fields.Count
msgbox( intCount)

do while not rs.eof      
  for i = 0 to intCount - 1   
   objOutFile.Write rs.fields.item(i) & vbTab
  next
  objOutFile.WriteLine vbCrLf
  rs.MoveNext
  
loop
ad.close

   
multumesc ff mult.

cu respect,  o zi buna / Astalus