试用期的题目,请各位大哥指教。 1.(vb6)在程序中建立一SQL数据库,库中有一表(TestTable), 表的结构任意。2.将在第一步中建立的表的结构读出并存为一"*.mdb"文件。(不是在SQL SERVER里利用创建向导之类的工具,去创建。是在应用程序里利用代码创建。该怎么做啊。 ) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 免费源代码任你选************************************* http://sky300.com:88/hongsong/ *************************************里面有你想要得冬冬哦!不看会后悔的哦! '创建Dim Wrk As Workspace Set Wrk = DBEngine.Workspaces(0) Set Dbs = Wrk.CreateDatabase(App.Path & "\temp.mdb", dbLangChineseSimplified) Set tdfNew = Dbs.CreateTableDef("TestTable") tdfNew.Fields.Append tdfNew.CreateField(Col1, dbText) tdfNew.Fields.Append tdfNew.CreateField(Col2, dbText) tdfNew.Fields.Append tdfNew.CreateField(Col3, dbText) tdfNew.Fields.Append tdfNew.CreateField(Col4, dbText) Dbs.TableDefs.Append tdfNewDbs.Close 要创建的是SQL SERVER数据库啊。 如何遍历某一文件夹下的所有子目录 求助!Webbrowser控件的NewWindow2事件! 怎样用API函数来停止一个应用程序的运行(如WORD2000) delete语句问题,请帮帮我 小弟愚昧,学了这个多时候的VB6,有一个很关键的问题还是不太明白,请高手指点指点,不甚感激。 请教:怎样将使用用友华表组件4.2? 请问如何用vb实现找颜色,并且移动鼠标到该颜色处啊? 如何用VB调用生成AutoCAD格式的图像? 向所有的从事软件开发的朋友求教 各位大侠,DBGRID控件怎么用 怎样才能将Excel工作表中的数据导入到数据库,各位帮帮忙,谢谢了! 在VB中怎样建临时表??
* http://sky300.com:88/hongsong/ *
************************************里面有你想要得冬冬哦!不看会后悔的哦!
Dim Wrk As Workspace
Set Wrk = DBEngine.Workspaces(0)
Set Dbs = Wrk.CreateDatabase(App.Path & "\temp.mdb", dbLangChineseSimplified)
Set tdfNew = Dbs.CreateTableDef("TestTable") tdfNew.Fields.Append tdfNew.CreateField(Col1, dbText)
tdfNew.Fields.Append tdfNew.CreateField(Col2, dbText)
tdfNew.Fields.Append tdfNew.CreateField(Col3, dbText)
tdfNew.Fields.Append tdfNew.CreateField(Col4, dbText)
Dbs.TableDefs.Append tdfNew
Dbs.Close