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()

'关闭连接