vb数据库(vb怎么创建数据库)-IT技术网站

vb数据库

一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后翻开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，翻开“创建新数据源”对话框，在“称号”列表框中挑选“SQLServer”。选好单击完结
3、在翻开“建立新的数据源到SQLServer”对话框，在“称号”文本框输入新数据源的称号，描述数据源按你理解的方法来写(随意)。“服务器”就挑选你要连接到的服务器。
4、挑选运用用户输入登录的ID和暗码的SQL验证
。选连接SQL默认设置
5、再下一步下一步，完结。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件MircrosoftADODataControl6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选特点，挑选运用连接字符串，按生成。
3、挑选MircosoftOLEDBProvidarforSQLServer
按下一步
4、
1、输入服务器称号
2、运用指定的服务器信息
3、在服务器上挑选数据库
这时就挑选你在SQLServer建好的数据库就行了
5、测试连接能够看到连接是否成功！

vb怎么创建数据库

用VB建立Access数据库结构
PrivateSubCommand1_Click()
OnErrorGoToErr100
‘定义表与字段
DimDefDatabaseAsDatabase
DimDefTableAsTableDef,DefFieldAsField
SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&”\vbeden.mdb”,0,False)
SetDefTable=DefDatabase.CreateTableDef(“VB编程乐园”)
‘dbBinary=9
‘dbBoolean=1
‘dbByte=2
‘dbChar=18
‘dbDate=8
‘dbInteger=3
‘dbLong=4
‘dbMemo=12
‘dbText=10
‘建立Name字段为8个字符型
SetDefField=DefTable.CreateField(“Name”,dbText,8)
DefTable.Fields.AppendDefField
SetDefField=DefTable.CreateField(“Sex”,dbText,2)
DefTable.Fields.AppendDefField
‘该字段允许为空
DefField.AllowZeroLength=True
‘建立Age字段为3个的常整型
SetDefField=DefTable.CreateField(“Age”,dbInteger,3)
‘字段追加
DefTable.Fields.AppendDefField
‘表追加
DefDatabase.TableDefs.AppendDefTable
MsgBox”VB编程乐园数据库建立完成！”,vbInformation
ExitSub
Err100:
MsgBox”对不起，不能建立表。请先再建表前建立VBEden数据库？”,vbCritical
EndSub
PrivateSubcmdCreate_Click()
OnErrorGoToErr100
‘建立名为VBEDEN的数据库
CreateDatabase”VB-CODE”,dbLangGeneral
MsgBox”数据库建立完成！”,vbInformation
ExitSub
Err100:
MsgBox”不能建立数据库!”&vbCrLf&vbCrLf&Err.Description,vbInformation
EndSub