version up from DAO to ADO

[hanmant]

Dear friends
herewith i am sending a query on VBA Application
I am doing a upgradation project in VBA from DAO to ADO library.
The following Code is in DAO and i have to change in ADO.

I have created the Database in ADO but the problem is in appending the property to it.
and Transferring the database.

this part is repeated n number of timesin the project so if any body from us knows how to do it
please convey the same as early as possible as i have a dead line on monday morning.
the platform windows 2000 japanese version
'Žw’肵‚½Æ‡‡˜‚ðŽ‚Â
Set db = wrk.CreateDatabase(strRet, dbLangJapanese)

Set prp = db.CreateProperty("StartUpForm", dbText, "F_Ê߽ܰÄÞ“ü—͉æ–Ê&quot
db.Properties.Append prp
Set prp = db.CreateProperty("StartupShowDBWindow", dbBoolean, False)
db.Properties.Append prp
Set prp = db.CreateProperty("AllowFullMenus", dbBoolean, False)
db.Properties.Append prp
Set prp = db.CreateProperty("AllowShortcutMenus", dbBoolean, False)
db.Properties.Append prp
Set prp = db.CreateProperty("AllowBuiltInToolbars", dbBoolean, False)
db.Properties.Append prp
Set prp = db.CreateProperty("AllowToolbarChanges", dbBoolean, False)
db.Properties.Append prp

db.Close
wrk.Close

DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_Ê߽ܰÄÞ“ü—͉æ–Ê", "F_Ê߽ܰÄÞ“ü—͉æ–Ê"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_‹¤’Ê’ •[", "F_‹¤’Ê’ •["
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_Ý–â‰ñ“š’ •[", "F_Ý–â‰ñ“š’ •["
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuÝ–â‰ñ“š’ •[‚P", "F_ƒTƒuÝ–â‰ñ“š’ •[‚P"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuÝ–â‰ñ“š’ •[‚Q", "F_ƒTƒuÝ–â‰ñ“š’ •[‚Q"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuÝ–â‰ñ“š’ •[‚R", "F_ƒTƒuÝ–â‰ñ“š’ •[‚R"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuÝ–â‰ñ“š’ •[‚S", "F_ƒTƒuÝ–â‰ñ“š’ •[‚S"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuƒ`ƒFƒbƒNŒ^", "F_ƒTƒuƒ`ƒFƒbƒNŒ^"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
strRet, acForm, "F_ƒTƒuƒ`ƒFƒbƒNˆÈŠOŒ^", "F_ƒTƒuƒ`ƒFƒbƒNˆÈŠOŒ^"

Thanking u in Anticipation
hanmantpatil@hotmail.com
Hanmant patil

 

[vb5prgrmr]

Add forum222 to your list and do a searh on your forums looking for "create access ado" and you should come up with a couple of examples.

Good Luck