13518219792
'*
创新互联专注于黟县企业网站建设,响应式网站开发,商城网站制作。黟县网站建设公司,为黟县等地区提供建站服务。全流程按需网站开发，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
名称：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
你把数据库中的数据查询出来保存在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前面就没有
如果楼主熟悉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()
'关闭连接
