在VB中如何備份SQL數(shù)據(jù)庫(kù)

'*

創(chuàng)新互聯(lián)專注于黟縣企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開(kāi)發(fā),商城網(wǎng)站制作。黟縣網(wǎng)站建設(shè)公司,為黟縣等地區(qū)提供建站服務(wù)。全流程按需網(wǎng)站開(kāi)發(fā)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

名稱：BackupDatabase

'*

功能：備份數(shù)據(jù)庫(kù)

'*

控件：一個(gè)

文本框

和兩個(gè)按鈕（備份到和確定）

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

Public

Sub

BackupDatabase()

Dim

cn

As

New

ADODB.

Connection

Dim

s_path,

s_dataexport

As

String

s_path

=

App.Path

Me.MousePointer

=

11

'設(shè)置

鼠標(biāo)指針

形狀

'student1是需要備份的數(shù)據(jù)庫(kù)名稱

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"

'數(shù)據(jù)庫(kù)連接字符串

'這里不需要連接master數(shù)據(jù)庫(kù)，即可完成備份

cn.BeginTrans

cn.Execute

s_dataexport

Err.Number

=

If

Err.Number

=

Then

cn.CommitTrans

MsgBox

"

數(shù)據(jù)備份

成功！",

vbInformation,

"提示"

MsgBox

"數(shù)據(jù)備份文件存放路徑:"

CommonDialog

1.FileName,

vbOKOnly,

"提示"

Unload

Me

Else

cn.RollbackTrans

MsgBox

"數(shù)據(jù)備份失?。≌?qǐng)檢查數(shù)據(jù)庫(kù)是否正在打開(kāi)！",

vbCritical,

"提示"

End

If

cn.Close

Set

cn

=

Nothing

Me.MousePointer

=

1

End

Sub

關(guān)于vb.net上數(shù)據(jù)庫(kù)的使用問(wèn)題

你把數(shù)據(jù)庫(kù)中的數(shù)據(jù)查詢出來(lái)保存在DataSet 中

DataSet 是脫機(jī)的數(shù)據(jù)集，也即與數(shù)據(jù)庫(kù)斷開(kāi)的數(shù)據(jù)集

把DataSet綁定到GridView上，這時(shí)候你在GridView上的操作就都是與數(shù)據(jù)庫(kù)斷開(kāi)的

VB.NET數(shù)據(jù)庫(kù)應(yīng)用程序問(wèn)題（電白求指教）

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

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

就OK了，你的單引號(hào)放在雙引號(hào)的前面去了，所以就出問(wèn)題了，

而且寫SQL語(yǔ)句該要有空格的一定要加上，where前面就沒(méi)有

vb.net 怎么操作數(shù)據(jù)庫(kù)

如果樓主熟悉VB6，可以直接在項(xiàng)目中添加ADODB的Com引用，這樣你就可以像VB6那樣操作數(shù)據(jù)庫(kù)了！

另外

.NET

Framework中連接數(shù)據(jù)庫(kù)要用到ADO.NET。如果要操作Access數(shù)據(jù)庫(kù)，要用到System.Data.OleDb命名空間下的許多類。

比如按樓主所說(shuō)，“我想在textbox1中顯示表一中【一些數(shù)據(jù)】字段下的第一個(gè)內(nèi)容”：

'首先導(dǎo)入命名空間

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一個(gè)事件處理程序中寫：

Dim

conn

As

New

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

Source=數(shù)據(jù)庫(kù).accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

*

From

數(shù)據(jù)表",

conn)

conn.Open()

'打開(kāi)數(shù)據(jù)庫(kù)連接

Dim

reader

As

OleDbDataReader

=

command.ExecuteReader()

'執(zhí)行SQL語(yǔ)句，返回OleDbDataReader

對(duì)象

Do

While

reader.Read()

'讀取一條數(shù)據(jù)

textbox1.Text

+=

reader("一些數(shù)據(jù)")

VbCrLf

Loop

reader.Close()

'關(guān)閉OleDbDataReader

conn.Close()

'關(guān)閉連接

名稱欄目：vb.net分離數(shù)據(jù)庫(kù),vb中將數(shù)據(jù)庫(kù)分為本地?cái)?shù)據(jù)庫(kù)
文章鏈接：http://chinadenli.net/article26/heshjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、建站公司、品牌網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、靜態(tài)網(wǎng)站、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)