bool CAccessManager::CreateTimeTable(CString& sOutTime,CString sInFolder)
{
CDaoAccess _Access;
m_sAccessPath = sInFolder;
SYSTEMTIME st;
GetLocalTime(&st);
sOutTime.Format("%d_%d_%d", st.wYear, st.wMonth, st.wDay);
_Access.CreatAccessDB(sInFolder);
CString strSql;
strSql.Format("CREATE TABLE %s(ID AUTOINCREMENT PRIMARY KEY,時間 VARCHAR(200),模板型號 VARCHAR(200),識別結果 VARCHAR(200),圖片地址 TEXT)",sOutTime);
//創建表;
_Access.CmdSql(sInFolder,strSql);//CreateAccess(outExcel,sPath);
strSql.Format("ALTER TABLE 2019_2_12 ALTER COLUMN 圖片地址 Hyperlink");
//創建表;
_Access.CmdSql(sInFolder, strSql);//CreateAccess(outExcel,sPath);
m_sCurTable = sOutTime;
return true;
}
}
uj5u.com熱心網友回復：
欄位值前增加file:///uj5u.com熱心網友回復：
strSql.Format(TEXT("ALTER TABLE 2019_2_12 ALTER COLUMN %s", ...);字串格式化？？
uj5u.com熱心網友回復：
在資料庫里面添加超鏈接uj5u.com熱心網友回復：
那句話是想把圖片地址那一列改成Hyperlink 超鏈接資料型別 但是運行失敗了 這樣寫不對 忽略這句話把uj5u.com熱心網友回復：
使用 Microsoft Access 2010 進行資料編程uj5u.com熱心網友回復：
CDaoTableDef::CreateField dbMemoCDaoTableDef::SetAttributes dbHyperlinkField
uj5u.com熱心網友回復：
ADO的話是ADOX::ColumnsPtr pCols =pTable->Columns;
……
pCols->Append(_T("RecordID") ,ADOX::adInteger,0);//自動編號欄位
pCols->Append(_T("PicUrl") ,ADOX::adLongVarWChar ,2048);//
……
pCatalog->Tables->Refresh();
pCols->GetItem(i)->ParentCatalog =pCatalog
ADOX::PropertiesPtr pProperties=pCols->GetItem(i)->Properties;
pCols->GetItem(_T("RecordID"))->Properties->GetItem(_T("AutoIncrement"))->Value=https://bbs.csdn.net/topics/true;//自動編號
pCols->GetItem(_T("PicUrl"))->Properties->GetItem(_T("Jet OLEDB:Hyperlink"))->Value=https://bbs.csdn.net/topics/true;//超鏈接
uj5u.com熱心網友回復：
顯示的時候，字體顏色改成藍色+下劃線程式里保存這條記錄對應的鏈接地址。
點擊事件中呼叫 :shellexecute(null,"open","http://abc.com",0,0,0) 或者是本地鏈址shellexecute(null,"open","file:///c:\a.docx",0,0,0)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55947.html
標籤：數據庫
上一篇：批量更改檔案名程式問答(六)