QTP链接到PostgreSQL数据库

'链接数据库

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