Sub sqlConn1()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sht As Worksheet, ii As Integer
Dim cnnStr As String, SQL As String, myDataBase As String
Dim cmd As ADODB.Command
myDataBase = "USER2017"
cnnStr = "Provider=SQLOLEDB; Server=127.0.0.1; Database=" & myDataBase & ";Uid=sa; Password=123;"
cnn.Open cnnStr
SQL = "select * from myDataBase"
Set rs = cnn.Execute(SQL)
Set sht = ThisWorkbook.Worksheets(1)
If Not rs.EOF Then
sht.Range("A2").CopyFromRecordset rs
End If
For ii = 0 To rs.Fields.Count - 1
sht.Cells(1, ii + 1).Value = rs.Fields(ii).Name
Next ii
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
1、访问数据库:我可以做,具体用的什么数据库.
2、实时可用间隔多少时间刷显示数据库的内容发实现,如:10秒
sub 显示数据库数据()
'显示数据语句
end sub
sub 间隔刷新()
dim newTime
newtime=now+timevalue("00:00:10")
call 显示数据库数据
application.onTime newTime,"间隔刷新"
end sub
private workbook_open()
call 间隔刷新'这过程必须运行一次.
end sub