Discussion Article

[ Home | Contents | Search | Reply | Previous | Next ]

Subject:
vb 6.0
Name:
vijay
Email (spam proof):
Email the originator of this post
Date:
Tuesday, June 06, 2006
Hits:
61
Discussion (Terms and Conditions):
Dim wrkDefault As Workspace Dim dbsNew As Database arrDir = Split(Form2.Dir1, "\") arrCount = UBound(arrDir) Set wrkDefault = DBEngine.Workspaces(0) DataBaseFileName = arrDir(arrCount) & ".mdb" DataBaseFileName = Form2.Text2.Text & DataBaseFileName Set dbsNew = wrkDefault.CreateDatabase(App.Path & "\" & DataBaseFileName, _ dbLangGeneral & ";pwd=sundae;", dbEncrypt) dbsNew.Close the above code i used to create database in ms access in lower versions but the above code doesnt work for hiher versions of ms access.always ms access asks me for converting the created database in latest version.but when i convert the table,fields are not created .what is the problem can you suggest me some solution

Sponsored by the best FTP application on the internet: