MYSQL网页编程之在VB中静态创立数据库
对于现有业务，可以轻松移植到MySQL。当你需要替换掉老的硬件，当你需要削减历史遗留下的老系统的时候，选用MySQL对于财务部门来说更具吸引力。在VB中静态创立数据库新建工程.增加控件对应写上代码
以下为援用的内容：
PrivateSubCommand2_Click()
DimmyDBAsDAO.Database
SetmyDB=DAO.OpenDatabase("d:mydb3.mdb")
SetmyDB=DAO.OpenDatabase(App.Path+"/mydb.mdb")
DimdAsString
d="delete*fromNewTable1"
myDB.Executed
MsgBox"乐成删除全体纪录"
EndSub
PrivateSubCommand3_Click()
DimmyDBAsDAO.Database
SetmyDB=DAO.OpenDatabase("d:mydb3.mdb")
SetmyDB=DAO.OpenDatabase(App.Path+"/mydb.mdb")
DimeAsString
e="dropTABLENewTable1"
myDB.Executee
EndSub
PrivateSubForm_Load()
DimmyDBAsDAO.Database
SetmyDB=DAO.Workspaces(0).CreateDatabase("d:mydb3.mdb",dbLangGeneral)
SetmyDB=DAO.Workspaces(0).CreateDatabase(App.Path+"/mydb.mdb",dbLangGeneral)
Dimstr_SQLAsString
str_SQL="CreateTableNewTable1(Field1Text(10),Field2Short)"
myDB.Executestr_SQL
DimaAsString
a="InsertINTONewTable1VALUES(litao,21)"
myDB.Executea
str_SQL="CreateTableNewTable2(Field1Text(10),Field2Short)"
myDB.Executestr_SQL
myDB.Close
MsgBox"乐成创立mydb3.mdb数据库外加一笔记录litao21"
EndSub
PrivateSubCommand1_Click()
DimmyDBAsDAO.Database
SetmyDB=DAO.OpenDatabase("d:mydb3.mdb")
SetmyDB=DAO.OpenDatabase(App.Path+"/mydb.mdb")
DimcAsString
c="InsertINTONewTable1VALUES(liqiao,20)"
myDB.Executec
MsgBox"乐成拔出一笔记录liqiao20"
EndSub
一个相关的问题是第三方支持的资格问题，尽管直接来自厂商的支持和服务可以一定程度上减缓这个问题，但是，对于有的企业来说，通过强有力的本地化支持显然更有吸引力。 SP4是一个累积性的ServicePack，包含自以前的ServicePack发布以来所有的修补程序（包括MS03-031安全公告）。 习惯敲命令行的朋友可能会爽一些。但是功能有限。适合机器跑不动SQLServerManagementStudio的朋友使用。 个人感觉没有case直观。而且默认的第三字段（还可能更多）作为groupby字段很容易造成新手的错误。 是要和操作系统进行Socket通讯的场景。否则建议慎重！ 比如，MicrosoftSQLServer2008的某一个版本可以满足现在的这个业务的需要，而且价格还比Oracle11g要便宜，那么这一产品就是适合的。 这就引发了对varchar和char效率讨论的老问题。到底如何分配varchar的数据，是否会出现大规模的碎片？ 我是一个ERP初学者，对于前台运用基本熟悉，但对于后台SQLServer的运用一点也不懂，特想学习下相关资料。至少懂得一些基本的运用。希望各位能给于建议，小弟再谢过！ having子句的作用是筛选满足条件的组，即在分组之后过滤数据，条件中经常包含聚组函数，使用having条件显示特定的组，也可以使用多个分组标准进行分组。
页:
[1]