用数据库控件比如ADODC与
网络数据库
连接,然后其他用来输出的控件比如DataGrid再与数据库控件绑定即可。
数据库只要建立了连接,那么在使用过程中对于程序而言就没有
本地数据库
与网络数据库之分了, *** 作都是完全一样的,数据库搜索引擎会自动完成数据的上传和下载。
首先你的VB必须是安装完整的版本!
然后打开VB点击 [外接程序->可视化数据管理器-> 就可以打开VisData,然后你就可以用他来新建数据库,用他来 *** 作你的数据库
注意:新建数据库通常使用的格式是:
文件->新建->Microsoft Access->展开后有20和70两个,看你自己喜欢随便选一个吧!就这样!还有什么不懂的请补充问题!
Private Sub Add_Data() '增加记录 Data1RecordsetAddNew End Sub Private Sub Delete_Data() '删除当前记录 If MsgBox("是否删除当前记录?", vbYesNo, "确认") = vbYes Then Data1RecordsetDelete Data1RecordsetMovePrevious End If End Sub Private Sub Find_Data() '查找指定学号的记录 Dim str_Find_Stuno As String str_Find_Stuno = InputBox("请输入学号:", "查找") Data1RecordsetFindFirst "Stu_no = ' " & str_Find_Stuno & " ' " If Data1RecordsetNoMatch = True Then MsgBox "对不起,没有您要查找的记录!" End If End Sub Private Sub Save_Data() '保存数据 Data1UpdateRecord End Sub Private Sub Cancel_Data() '取消编辑数据 Data1UpdateControls End Sub Private Sub Data1_Reposition() '显示当前记录所在位置 Data1Caption = 1 + Data1RecordsetAbsolutePosition & _ " of " & Data1RecordsetRecordCount End Sub Private Sub Add_Click() '"增加"菜单命令 Add_Data End Sub Private Sub Delete_Click() '"删除"菜单命令 Delete_Data End Sub Private Sub Find_Click() '"查找"菜单命令 Find_Data End Sub Private Sub Save_Click() '"保存"菜单命令 Save_Data End Sub Private Sub Cancel_Click() '"取消"菜单命令 Cancel_Data End Sub Private Sub Exit_Click() '"退出"菜单命令 End End Sub
以上就是关于如何在VB中实现网络数据库编程全部的内容,包括:如何在VB中实现网络数据库编程、怎样创建一个数据库,在VB里、用VB做数据库管理系统等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)