VC6连接PostgreSQL例程

举一个在vc6下的例子：

CString conninfo;
conninfo.clear();
conninfo.Format("%s"," hostaddr=192.168.1.110 dbname=shenmingdb user=postgres password=123456 ");

postgresql_conn = PQconnectdb(conninfo.operator LPCTSTR());
if (PQstatus(postgresql_conn) != CONNECTION_OK)
{
PQfinish(postgresql_conn);
return;
}

//设定客户端的编码集,这关系到查询结果使用什么编码集输出
//及发到服务器的SQL命令是什么编码非常重要
PQsetClientEncoding(postgresql_conn, "GB18030");//"GB18030"

//开始一个会话
postgresql_res = PQexec(postgresql_conn, "BEGIN WORK");
if (PQresultStatus(postgresql_res) != PGRES_COMMAND_OK)
{
PQclear(postgresql_res);
PQfinish(postgresql_conn);
return;
}
PQclear(postgresql_res);

//在会话中发一个指令，使用游标
postgresql_res = PQexec(postgresql_conn, "DECLARE myportal CURSOR FOR select * from t_gu_piao");
if (PQresultStatus(postgresql_res) != PGRES_COMMAND_OK)
{
PQclear(postgresql_res);
PQfinish(postgresql_conn);
return;
}
PQclear(postgresql_res);

//在会话中发一个指令，从游标中取所有记录
postgresql_res = PQexec(postgresql_conn, "FETCH ALL in myportal");
if (PQresultStatus(postgresql_res) != PGRES_TUPLES_OK)
{
PQclear(postgresql_res);
PQfinish(postgresql_conn);
return;
}

//清除list内容
((CListCtrl*)GetDlgItem(IDC_LIST1))->DeleteAllItems();

//获得查询结果中包含的字段数
int nFields = PQnfields(postgresql_res);
CRect rect;
GetDlgItem(IDC_LIST1)->GetClientRect(&rect);
int nColInterval = rect.Width()/nFields;

//写标题
for (int m = 0; m < nFields; m++)
{
((CListCtrl*)GetDlgItem(IDC_LIST1))-> DeleteColumn(m);
((CListCtrl*)GetDlgItem(IDC_LIST1))->InsertColumn(m, _T(PQfname(postgresql_res, m)), LVCFMT_LEFT, nColInterval*1);
}

 

LVITEM lvi;
CString strItem;
lvi.mask = LVIF_TEXT;

//查询记录写入每行中
for (int i = 0; i < PQntuples(postgresql_res); i++)
{
//写第一个字段
strItem.Format(_T("%s"), PQgetvalue(postgresql_res, i, 0));

lvi.iItem = i;
lvi.iSubItem = 0;
lvi.pszText = (LPTSTR)(LPCTSTR)(strItem);
((CListCtrl*)GetDlgItem(IDC_LIST1))->InsertItem(&lvi);

//写后续字段
for (int j = 1; j <= nFields; j++)
{
strItem.Format(_T("%s"), PQgetvalue(postgresql_res, i, j));
lvi.iSubItem =j;
lvi.pszText = (LPTSTR)(LPCTSTR)(strItem);
((CListCtrl*)GetDlgItem(IDC_LIST1))->SetItem(&lvi);
}
}

PQclear(postgresql_res);

//在会话中发一个指令，关闭游标
postgresql_res = PQexec(postgresql_conn, "CLOSE myportal");
PQclear(postgresql_res);

//在会话中发一个指令,提交事务
postgresql_res = PQexec(postgresql_conn, "END WORK");
PQclear(postgresql_res);

/* 关闭与数据库的连接并且清理 */
PQfinish(postgresql_conn);