'*
名称:BackupDatabase
功能:备份数据库
控件:一个
文本框
和两个按钮(备份到和确定)
'*********************************************************
Public
Sub
BackupDatabase()
Dim
cn
As
New
ADODB.
Connection
s_path,
s_dataexport
String
s_path
=
App.Path
Me.MousePointer
'设置
鼠标指针
形状
'student1是需要备份的数据库名称
"backup
database
student1
to
disk='"
+
CommonDialog
①FileName
"'"
cn.Open
"driver={sql
server};server="
";database=student1;persist
security
info=false;
userid=sa"
'数据库连接字符串
'这里不需要连接master数据库,即可完成备份
cn.BeginTrans
cn.Execute
Err.Number
If
Then
cn.CommitTrans
MsgBox
"
数据备份
成功!",
vbInformation,
"提示"
"数据备份文件存放路径:"
①FileName,
vbOKOnly,
Unload
Me
Else
cn.RollbackTrans
"数据备份失败!请检查数据库是否正在打开!",
vbCritical,
End
cn.Close
Set
Nothing
你把数据库中的数据查询出来保存在DataSet 中
DataSet 是脱机的数据集,也即与数据库断开的数据集
把DataSet绑定到GridView上,这时候你在GridView上的操作就都是与数据库断开的
"where T_BookOrder.BookCode='"combobox1.Text '"group by bookname"
改为"where T_BookOrder.BookCode='"combobox1.Text "' group by bookname"
就OK了,你的单引号放在双引号的前面去了,所以就出问题了,
而且写SQL语句该要有空格的一定要加上,where前面就没有
另外
.NET
Framework中连接数据库要用到ADO.NET.如果要操作Access数据库,要用到System.Data.OleDb命名空间下的许多类.
比如按楼主所说,"我想在textbox1中显示表一中【一些数据】字段下的第一个内容":
'首先导入命名空间
Imports
System.Data
System.Data.OleDb
'然后在某一个事件处理程序中写:
conn
Source=数据库.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
command
OleDbCommand("Select
*
From
数据表",
conn)
conn.Open()
'打开数据库连接
reader
OleDbDataReader
command.ExecuteReader()
'执行SQL语句,返回OleDbDataReader
对象
Do
While
reader.Read()
'读取一条数据
textbox1.Text
+=
reader("一些数据")
VbCrLf
Loop
reader.Close()
'关闭OleDbDataReader
conn.Close()
'关闭连接
以上就是土嘎嘎小编为大家整理的vb.net分离数据库相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!