sql - ADODB connection to ACCDB file -- unrecognized database format error -

-

i have file this:

strpath = "s:\hr\forms\forms_database.accdb"

i connecting through word adodb.connection

should database different extension ? mdb or something?

i getting error when tries connect:

unrecognized database format 's:...............accdb'

what's going on here?

here's entire code:

sub transfershipper()    'transfer new shipping company record    'shippers table in northwind database.    dim cnn adodb.connection   dim strconnection string   dim strsql string   dim strpath string   dim doc word.document   dim strcompanyname string   dim strphone string   dim bytcontinue byte   dim lngsuccess long   set doc = thisdocument   on error goto errhandler    strcompanyname = chr(39) & doc.formfields("txtcompanyname").result & chr(39)   strphone = chr(39) & doc.formfields("txtphone").result & chr(39)   'confirm new record.   bytcontinue = msgbox("do want insert record?", vbyesno, "add record")   debug.print bytcontinue   'process input values.   if bytcontinue = vbyes     strsql = "insert vacation " _      & "(title, department) " _      & "values (" _      & strcompanyname & ", " _      & strphone & ")"     debug.print strsql     'substitute path , connection string dsn if available.     strpath = "s:\hr\forms\forms_database.accdb"     strconnection = "provider=microsoft.jet.oledb.4.0;" _      & "data source = " & strpath     debug.print strconnection     set cnn = new adodb.connection     cnn.open strconnection     cnn.execute strsql, lngsuccess     cnn.close     msgbox "you inserted " & lngsuccess & " record", _      vbokonly, "error added"     doc.formfields("txtcompanyname").textinput.clear     doc.formfields("txtphone").textinput.clear   end if   set doc = nothing   set cnn = nothing   exit sub errhandler:   msgbox err.number & ": " & err.description, _    vbokonly, "error"   on error goto 0   on error resume next   cnn.close   set doc = nothing   set cnn = nothing end sub

try ace oledb 12.0 db version. 

"provider=microsoft.ace.oledb.12.0"

Comments

Post a Comment

Popular posts from this blog

c++ - How do I get a multi line tooltip in MFC -

-
right now, have tool tip pops when hover on edit box. problem tool tip contains multiple error messages , in 1 long line. need have each error message on own line. error messages contained in cstring new line seperating them. my existing code below. bool ontooltiptext(uint, nmhdr* pnmhdr, lresult* presult) { assert(pnmhdr->code == ttn_needtexta || pnmhdr->code == ttn_needtextw); // need handle both ansi , unicode versions of message tooltiptexta* pttta = (tooltiptexta*)pnmhdr; tooltiptextw* ptttw = (tooltiptextw*)pnmhdr; // tchar szfulltext[256]; cstring strtiptext=_t(""); uint nid = pnmhdr->idfrom; if (pnmhdr->code == ttn_needtexta && (pttta->uflags & ttf_idishwnd) || pnmhdr->code == ttn_needtextw && (ptttw->uflags & ttf_idishwnd)) { // idfrom hwnd of tool nid = ::getdlgctrlid((hwnd)nid); } //m_errprojaccel[ch] contains 1 or more error messages each...
Read more

asp.net - In javascript how to find the height and width -

-
i having .aspx , masterpage page. in masterpage loading aspx page . in aspx page design using generating table structure using code-behind server in javascript how find height , width . regards, kumar if you're looking table height , width, should it var tbl = document.getelementbyid('tbldemo'); alert(tbl.offsetwidth + '\n' + tbl.offsetheight);
Read more

c# - DataTable to EnumerableRowCollection -

-
i have datatable according client requirement can contain invalid date "00/00/1999",null,empty string.(typed datset) when collect them enumerables wish convert of invalid forms empty string. (i.e) enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || (how check date invalid date) ? string.empty : order.field<datetime>("orderdate") } how check whether date valid date or not? datetime.tryparse...like given current code: datetime date; enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || !datetime.tryparse(convert.tostring(order.field<datetime...
Read more