A. sql...如何將表查詢的結果自動保存到*.txt文件中
1、將SQL語句,保存到一個文本文件 s.sql 中
2、建立一個批處理文件runsql.bat,內容如下:
osql -S資料庫名 -Usql用戶名 -Psql用戶密碼 -i s.sql -o result.txt
(如果安裝的是 SQL2000,可將上面的osql,改為 isql)
3、運行runsql.bat後,檢查result.txt,這里就是SQL語句執行後的結果
B. vb 將SQL Server中的記錄生成文件 保存起來
用自動向導往外導。
C. mysql怎樣設置用sql語句查詢出的報表定時自動導出
mysql -h主機IP -u用戶名 -p密碼 -e "SQL語句" 庫的名字 > 文件存放路徑/文件名.xls
例如:mysql -h192.168.1.1 -uroot -p123456 -e "select * from e_iclass_areas" test > /root/test/test.xls
上面是語句,然後把上面的語句寫成一個腳本,給一個可執行許可權,然後在通過crontab做一個定時任務即可
腳本內容:
#!/bin/bash
mysql -h192.168.1.1 -uroot -p123456 -e "select * from e_iclass_areas" test > /root/test/test.xls
假設腳本名稱是test.sh,所在路徑是/root/test/test.sh,則給其授權
chmod +x /root/test/test.sh
然後做定時任務,定時執行此腳本,比如每天晚上2點執行:
crontab
0 2 0 0 0 /root/test/test.sh
D. ERP軟體用的是SQL2000資料庫,能不能用VB編程製作出自己想要的報表(數據從SQL資料庫中去取),多謝!
當然可以。只要你熟悉erp軟體的資料庫架構。
E. 我用ADO連接到了SQL2008里的一個表。然後在VB里要實現直接表裡添加,刪除,修改,保存功能。
Private Sub Delete_Click()
'聲明資料庫連接對象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開資料庫連接
conn.Open
'執行刪除sql語句
conn.Execute "Delete from Users where UserName='insert' or UserName='update'"
'關閉資料庫並釋放資料庫對象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'添加函數
'************************************************************
Private Sub InsertButton_Click()
'聲明資料庫連接對象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開資料庫連接
conn.Open
'執行添加sql語句
conn.Execute "Insert into Users (UserName,UserPassword) values ('insert','test')"
'關閉資料庫並釋放資料庫對象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'讀取函數
'************************************************************
Private Sub SelectButton_Click()
'聲明資料庫連接對象和記錄集對象
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'指定連接字元串
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開資料庫連接
conn.Open
'執行查詢sql語句
rs.Open "Select * from Users", conn
'讀取記錄集內容
While Not rs.EOF
'顯示記錄
Print rs("UserId"), rs("UserName"), rs("UserPassword")
rs.MoveNext
Wend
'關閉記錄集並釋放記錄集對象
rs.Close
Set rs = Nothing
'關閉資料庫並釋放資料庫對象
conn.Close
Set conn = Nothing
End Sub
'***********************************************************
'更新函數
'************************************************************
Private Sub Update_Click()
'聲明資料庫連接對象
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB.mdb;Persist Security Info=False"
'打開資料庫連接
conn.Open
'執行更新sql語句
conn.Execute "Update Users set UserName='update' where UserName='insert'"
'關閉資料庫並釋放資料庫對象
conn.Close
Set conn = Nothing
End Sub
F. 如何設計SQL資料庫表格才能完美的存放這個報表的內容,求大神解答~
你這個表格需要程序支撐,比如每個月數據的錄入以及平均日進量的計算等等
如果什麼都不考慮,就是人工採集數據,直接錄入,然後通過一個程序展示報表
那麼表結構大概這樣
隊
組
工程名稱
工程量(這個其實可以幾列合計,不需要建列)
平均日進(這個應該能通過工程量/生產天數,也不需要保存,看你需要)
月進(也許是月平均值,沒仔細看你數據關系,總之可以通過計算的就不需要在表中體現)
生產天數(估計是起止時間差,用datediff函數可以得到)
開始時間
截止時間
巷道性質
備注
4月(這部分我估計你是每季度一張表,每個記錄保存三個月就夠了,所以列名可以分別寫月1、月2、月3,到時候生成表頭的時候再調整)
5月
6月
至於列的性質,建議你數字的用int,字元的用varchar(50),時間也用varchar(20),改動方便
合計列和小計列要在生成報表的時候處理
G. VB中怎樣保存數據(保存在VB資料庫里)
1.使用文件來記錄,下次運行時讀取 .2.使用資料庫,可以考慮單機資料庫或網路資料庫 3.如果數據量小,使用注冊表.
或者可以通過程序來保存:
set fs=createobject("scripting.filesystemobject")'創建文件操作對象
if fs.fileexists("C:\a.txt") then'如果C盤A.txt存在,那麼讀取其內容
set txt=fs.opentextfile("C:\a.txt",forreading,true)
set txtn=txt.readall
else'
set txtf=fs.createtextfile("c:\a.txt",true)'創建C盤下的a.txt
do'無限循環
wscript.sleep 1000'延時一秒
txtf.write a.text'寫入文本框中內容
loop'循環結束
end if'判斷結束
H. VB做報表的問題
你可以用VB自己帶的報表工具 不必再安裝什麼東西 在菜單 -- 工具 --添加 --數據報表 VB要裝全
I. 高分求助:VB連接ACCESS進行數據篩選最後生成報表並用EXCEL保存的代碼
如果數據量不太大,建議使用ado連接access和excel
從你的說法來看,excel只需要保存數據,不存在手工編輯excel,最好的方法就是ado連接
ado連接excel和access,如果超過97版本,就需要vb中添加組件
好像叫 microsoft activex Data Objects 2.7 Library 以上。
用ado連接字分別連接access 和excel
連接excel
dim myconn as new connection
dim myrs as new recordset
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 你excel文件包含路徑的文件名& ";Extended Properties=""Excel 8.0;HDR=Yes;"";"""
myrs.Open "Select * from [Sheet1$]", MyXLSConn, adOpenDynamic, adLockOptimistic
'可對sheet1做操作。
這樣就把excel 的sheet1作為一張數據表使用。
通過 myrs.addnew myrs.delete myrs.update 對表進行操作。
這種方法適用簡單。不過有個前提,你需要先建立好一個excel,excel第一行為欄位名稱。
可通過FSO基於某個建立好的excel文件做模板,生成多個包含數據的excel
access的使用方法和excel一樣,也可以適用ado,只是myconn後面的連接字不同。可網上查找連接字。
學習的關鍵字如下:
vb6 ado 連接字 recordset
J. vb中怎麼自動生成報表啊
用msflexgird+ado 或者datagrid+ado+adobc 用msflexgrid+ado的話,用ado連接資料庫,然後再一個個填到msflexgird里 如果用第二種的話,就用ado連接,然後通過adodc綁定到datagrid上。