在程序中直接执行SQL语句；将DGrid中的数据导出EXCEL

在程序中直接执行SQL语句；将DGrid中的数据导出EXCEL
 
一、对数据库进行操作的SQL语句程序，可直接在VB中运行
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim str As String
'''''''''''''数据处理
str = "Driver={SQL Server};Server=SQL服务器名;DataBase=数据库名;UID=用户;PWD=密码;"
cnn.Open str
cmd.CommandText = "SQL操作语句"
cnn.Execute cmd.CommandText
'''''''''''清空临时表，断开连接
cmd.CommandText = "SQL操作语句""
cnn.Execute cmd.CommandText
cnn.Close
 
二、对EXCEL操作，将DGrid的数据导出EXCEL
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet

Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
Dim rows As Integer
rows = 1
   mysheet.Cells(rows, 1).Value = "数据项"
   mysheet.Cells(rows, 2).Value = "数据项" 
 ... ...
rows = rows + 1
mysheet.Cells(rows, 1).CopyFromRecordset Adodc1.Recordset
myexcel.Visible = True
 
'使用应用程序对象的 Quit 方法关闭 Excel。
myexcel.Quit
'释放该对象变量
Set myexcel = Nothing
Set mybook = Nothing
Set mysheet = Nothing