成都创新互联网站制作重庆分公司

vb.net分离数据库,vb中将数据库分为本地数据库

在VB中如何备份SQL数据库

'*

创新互联专注于黟县企业网站建设,响应式网站开发,商城网站制作。黟县网站建设公司,为黟县等地区提供建站服务。全流程按需网站开发,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务

名称:BackupDatabase

'*

功能:备份数据库

'*

控件:一个

文本框

和两个按钮(备份到和确定)

'*********************************************************

Public

Sub

BackupDatabase()

Dim

cn

As

New

ADODB.

Connection

Dim

s_path,

s_dataexport

As

String

s_path

=

App.Path

Me.MousePointer

=

11

'设置

鼠标指针

形状

'student1是需要备份的数据库名称

s_dataexport

=

"backup

database

student1

to

disk='"

+

CommonDialog

1.FileName

+

"'"

cn.Open

"driver={sql

server};server="

d1

";database=student1;persist

security

info=false;

userid=sa"

'数据库连接字符串

'这里不需要连接master数据库,即可完成备份

cn.BeginTrans

cn.Execute

s_dataexport

Err.Number

=

If

Err.Number

=

Then

cn.CommitTrans

MsgBox

"

数据备份

成功!",

vbInformation,

"提示"

MsgBox

"数据备份文件存放路径:"

CommonDialog

1.FileName,

vbOKOnly,

"提示"

Unload

Me

Else

cn.RollbackTrans

MsgBox

"数据备份失败!请检查数据库是否正在打开!",

vbCritical,

"提示"

End

If

cn.Close

Set

cn

=

Nothing

Me.MousePointer

=

1

End

Sub

关于vb.net上数据库的使用问题

你把数据库中的数据查询出来保存在DataSet 中

DataSet 是脱机的数据集,也即与数据库断开的数据集

把DataSet绑定到GridView上,这时候你在GridView上的操作就都是与数据库断开的

VB.NET数据库应用程序问题(电白求指教)

"where T_BookOrder.BookCode='"combobox1.Text '"group by bookname"

改为"where T_BookOrder.BookCode='"combobox1.Text "' group by bookname"

就OK了,你的单引号放在双引号的前面去了,所以就出问题了,

而且写SQL语句该要有空格的一定要加上,where前面就没有

vb.net 怎么操作数据库

如果楼主熟悉VB6,可以直接在项目中添加ADODB的Com引用,这样你就可以像VB6那样操作数据库了!

另外

.NET

Framework中连接数据库要用到ADO.NET。如果要操作Access数据库,要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说,“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”:

'首先导入命名空间

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一个事件处理程序中写:

Dim

conn

As

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=数据库.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

数据表",

conn)

conn.Open()

'打开数据库连接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'执行SQL语句,返回OleDbDataReader

对象

Do

While

reader.Read()

'读取一条数据

textbox1.Text

+=

reader("一些数据")

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接


本文题目:vb.net分离数据库,vb中将数据库分为本地数据库
文章地址:http://cxhlcq.com/article/heshjg.html

其他资讯

在线咨询

微信咨询

电话咨询

028-86922220(工作日)

18980820575(7×24)

提交需求

返回顶部