'链接数据库
set conn=CreateObject("ADODB.Connection")
ConnectionString="DSN=PostgreSQL30;DATABASE=数据库名(比如aap);SERVER=服务器ip地址(比如172.168.1.2);PORT=端口号(比如:5432);UID=postgres;PWD=postgres;"
conn.Open ConnectionString
这里注意下,如果dsn中没有PostgreSQL的
''查看连接是否已建立
'If conn.State=0 Then
' msgbox"failed"
' else
' msgbox"pass"
'End If
'建立空的记录集
Set rs=CreateObject("ADODB.RecordSet")
'设置SQL语句
sql="select cust_sku_no,description,cust_mfg_no,dept_no,asia_mgr,usa_mgr, usa_dir from cp_md_product where cust_sku_no=6300002"
'打开记录集
rs.open sql,conn
rs.MoveFirst
'循环取数,数据表列名为aaa/bbb/ccc/ddd/eee
'Do until rs.eof
A = rs("cust_sku_no").value
...
rs.next
loop