Ⅰ vb怎麼使用vb向資料庫寫數據
PrivateSubCommand1_Click()
DimADOrsAsNewRecordset'聲明一個記錄集對象
DimADOrs1AsNewRecordset'聲明一個記錄集對象
DimstrSQLAsString
DimuserAsString
ADOrs.ActiveConnection=ADOcn'與ADOcn連接對象關聯
ADOrs1.ActiveConnection=ADOcn'與ADOcn連接對象關聯
IfText1.Text=""Then
MsgBox"未輸入姓名信息，請重新輸入！",vbCritical+vbOKOnly
Text1.SetFocus'定位游標
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"未輸入身份證號碼，請重新輸入！",vbCritical+vbOKOnly
Text2.SetFocus'定位游標
ExitSub
EndIf
'首先查詢表中是否存在關鍵字相同的記錄
strSQL="select*fromPersons"
strSQL=strSQL&"Where身份證號='"+Text2.Text+"'"
ADOrs.OpenstrSQL
'如果關鍵字重復,則退出
IfNotADOrs.EOFThen
MsgBox"該個人信息記錄已經存在,不能繼續增加",vbCritical+vbOKOnly
ExitSub
EndIf
ADOrs1.Open"select*fromPersons",,,adLockOptimistic
ADOrs1.AddNew
ADOrs1("姓名")=Text1.Text
ADOrs1("身份證號")=Text2.Text
ADOrs1("工號")=Text3.Text
ADOrs1("所屬公司")=Text4.Text
ADOrs1("部門")=Text5.Text
ADOrs1("聯系電話")=Text6.Text
ADOrs1("聯系地址")=Text7.Text
ADOrs1.Update
user=Text1.Text
Text1.Text=""'初始化文本框控制項
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text1.SetFocus'定位游標
MDIForm1.StatusBar1.Panels(1).Text="成功添加個人信息:"&user
MsgBox"已成功添加新記錄",vbQuestion+vbOKOnly
ADOrs.Close'關閉記錄集
ADOrs1.Close'關閉記錄集
SetADOrs=Nothing
SetADOrs1=Nothing
EndSub
Ⅱ vb怎麼連接資料庫寫入數據
'在使用前需要先安裝MySql的驅動，進行正確配置
'注意：必須給出正確的伺服器名、資料庫名、表名、資料庫連接的用戶名、密碼
Option Explicit
Dim Cnn As ADODB.Connection '定義ADO連接對象
Dim Records As ADODB.Recordset '定義ADO記錄集對象
'連接到資料庫
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '伺服器名或IP、資料庫名、登錄用戶、密碼
Dim CnnStr As String '定義連接字元串
Set Cnn = CreateObject("ADODB.Connection") '創建ADO連接對象
Cnn.CommandTimeout = 15 '設置超時時間
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'關閉連接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel寫入MySql中的資料庫
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得結果集並插入數據到資料庫
Set Records = CreateObject("ADODB.Recordset")
'以下語句提供了插入思路，我只是把單條記錄的插入方式改為循環，以把所有的記錄添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母「v」之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用這條語句實現！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除對象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function
Ⅲ 怎樣用vb寫入數據和顯示數據啊
output
改成
append
text1-text3是你寫知入的數據
直接操作這3個文本道框
比如你text1是數值
你要統回計累計值答
就直接如下
Private
Sub
Command1_Click()
Open
"lz.txt"
For
append
As
#1
Write
#1,
Text1.Text,
Text2.Text,
Text3.Text
sum=sum
+
val(text1.text)
debug.print
sum
Close
#1
End
Sub
Ⅳ 如何編寫高質量的VB代碼
1. 使用整數（Integer）和長整數（Long）
提高代碼運行速度最簡單的方法莫過於使用正確的數據類型了。也許你不相信，但是正確地選擇數據類型可以大幅度提升代碼的性能。在大多數情況下，程序員可以將Single，Double和Currency類型的變數替換為Integer或Long類型的變數，因為VB處理Integer和Long的能力遠遠高於處理其它幾種數據類型。
在大多數情況下，程序員選擇使用Single或Double的原因是因為它們能夠保存小數。但是小數也可以保存在Integer類型的變數中。例如程序中約定有三位小數，那麼只需要將保存在Integer變數中的數值除以1000就可以得到結果。根據我的經驗，使用Integer和Long替代Single，Double和Currency後，代碼的運行速度可以提高將近10倍。
2. 避免使用變體
對於一個VB程序員來說，這是再明顯不過的事情了。變體類型的變數需要16個位元組的空間來保存數據，而一個整數（Integer）只需要2個位元組。通常使用變體類型的目的是為了減少設計的工4作量和代碼量，也有的程序員圖個省事而使用它。但是如果一個軟體經過了嚴格設計和按照規范編碼的話，完全可以避免使用變體類型。
在這里順帶提一句，對於Object對象也存在同樣的問題。請看下面的代碼：
Dim FSO
Set FSO = New Scripting.FileSystemObject
或
Dim FSO as object
Set FSO = New Scripting.FileSystemObject
上面的代碼由於在申明的時候沒有指定數據類型，在賦值時將浪費內存和CPU時間。正確的代碼應該象下面這樣：
Dim FSO as New FileSystemObject
3. 盡量避免使用屬性
在平時的代碼中，最常見的比較低效的代碼就是在可以使用變數的情況下，反復使用屬性（Property），尤其是在循環中。要知道存取變數的速度是存取屬性的速度的20倍左右。下面這段代碼是很多程序員在程序中會使用到的：
Dim intCon as Integer
For intCon = 0 to Ubound(SomVar())
Text1.Text = Text1.Text & vbcrlf & SomeVar(intCon)
Next intCon
下面這段代碼的執行速度是上面代碼的20倍。
Dim intCon as Integer
Dim sOutput as String
For intCon = 0 to Ubound(SomeVar())
sOutput = sOutput & vbCrlf &
SomeVar(intCon)
Next
Text1.Text = sOutput
4. 盡量使用數組，避免使用集合
除非你必須使用集合（Collection），否則你應該盡量使用數組。據測試，數組的存取速度可以達到集合的100倍。這個數字聽起來有點駭人聽聞，但是如果你考慮到集合是一個對象，你就會明白為什麼差異會這么大。
5. 展開小的循環體
在編碼的時候，有可能遇到這種情況：一個循環體只會循環2到3次，而且循環體由幾行代碼組成。在這種情況下，你可以把循環展開。原因是循環會佔用額外的CPU時間。但是如果循環比較復雜，你就沒有必要這樣做了。
6. 避免使用很短的函數
和使用小的循環體相同，調用只有幾行代碼的函數也是不經濟的--調用函數所花費的時間或許比執行函數中的代碼需要更長的時間。在這種情況下，你可以把函數中的代碼拷貝到原來調用函數的地方。
7. 減少對子對象的引用
在VB中，通過使用.來實現對象的引用。例如：
Form1.Text1.Text
在上面的例子中，程序引用了兩個對象：Form1和Text1。利用這種方法引用效率很低。但遺憾的是，沒有辦法可以避免它。程序員唯一可以做就是使用With或者將用另一個對象保存子對象（Text1）。
注釋： 使用With
With frmMain.Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
或者
注釋： 使用另一個對象保存子對象
Dim txtTextBox as TextBox
Set txtTextBox = frmMain.Text1
TxtTextBox.Text = "Learn VB"
TxtTextBox.Alignment = 0
TxtTextBox.Tag = "Its my life"
TxtTextBox.BackColor = vbBlack
TxtTextBox.ForeColor = vbWhite 注意，上面提到的方法只適用於需要對一個對象的子對象進行操作的時候，下面這段代碼是不正確的：
With Text1
.Text = "Learn VB"
.Alignment = 0
.Tag = "Its my life"
.BackColor = vbBlack
.ForeColor = vbWhite
End With
很不幸的是，我們常常可以在實際的代碼中發現類似於上面的代碼。這樣做只會使代碼的執行速度更慢。原因是With塊編譯後會形成一個分枝，會增加了額外的處理工作。
8. 檢查字元串是否為空
大多數程序員在檢查字元串是否為空時會使用下面的方法：
If Text1.Text = "" then
注釋： 執行操作
End if
很不幸，進行字元串比較需要的處理量甚至比讀取屬性還要大。因此我建議大家使用下面的方法：
If Len(Text1.Text) = 0 then
注釋： 執行操作
End if
9. 去除Next關鍵字後的變數名
在Next關鍵字後加上變數名會導致代碼的效率下降。我也不知道為什麼會這樣，只是一個經驗而已。不過我想很少有程序員會這樣畫蛇添足，畢竟大多數程序員都是惜字如金的人。
注釋： 錯誤的代碼
For iCount = 1 to 10
注釋： 執行操作
Next iCount
注釋： 正確的代碼
For iCount = 1 to 10
注釋： 執行操作
Next
10. 使用數組，而不是多個變數
當你有多個保存類似數據的變數時,可以考慮將他們用一個數組代替。在VB中，數組是最高效的數據結構之一。
11. 使用動態數組，而不是靜態數組
使用動態數組對代碼的執行速度不會產生太大的影響，但是在某些情況下可以節約大量的資源。
12. 銷毀對象
無論編寫的是什麼軟體，程序員都需要考慮在用戶決定終止軟體運行後釋放軟體佔用的內存空間。但遺憾的是很多程序員對這一點好像並不是很在意。正確的做法是在退出程序前需要銷毀程序中使用的對象。例如：
Dim FSO as New FileSystemObject
' 執行操作
' 銷毀對象
Set FSO = Nothing
對於窗體，可以進行卸載：
Unload frmMain
或
Set frmMain = Nothing
13. 變長和定長字元串
從技術上來說，與變長字元串相比，定長字元串需要較少的處理時間和空間。但是定長字元串的缺點在於在很多情況下，你都需要調用Trim函數以去除字元串末的空字元，這樣反而會降低代碼效率。所以除非是字元串的長度不會變化，否則還是使用變長字元串。
14. 使用類模塊，而不是ActiveX控制項
除非ActiveX控制項涉及到用戶界面，否則盡量使用輕量的對象，例如類。這兩者之間的效率有很大差異。
15. 使用內部對象
在涉及到使用ActiveX控制項和DLL的時候，很多程序員喜歡將它們編譯好，然後再加入工程中。我建議你最好不要這樣做，因為從VB連接到一個外部對象需要耗費大量的CPU處理能力。每當你調用方法或存取屬性的時候，都會浪費大量的系統資源。如果你有ActiveX控制項或DLL的源代碼，將它們作為工程的私有對象。
16. 減少模塊的數量
有些人喜歡將通用的函數保存在模塊中，對於這一點我表示贊同。但是在一個模塊中只寫上二三十行代碼就有些可笑了。如果你不是非常需要模塊，盡量不要使用它。這樣做的原因是因為只有在模塊中的函數或變數被調用時，VB才將模塊載入到內存中；當VB應用程序退出時，才會從內存中卸載這些模塊。如果代碼中只有一個模塊，VB就只會進行一次載入操作，這樣代碼的效率就得到了提高；反之如果代碼中有多個模塊，VB會進行多次載入操作，代碼的效率會降低。
17. 使用對象數組
當設計用戶界面時，對於同樣類型的控制項，程序員應該盡量使用對象數組。你可以做一個實驗：在窗口上添加100個PictureBox，每個PictureBox都有不同的名稱，運行程序。然後創建一個新的工程，同樣在窗口上添加100個PictureBox，不過這一次使用對象數組，運行程序，你可以注意到兩個程序載入時間上的差別。
18. 使用Move方法
在改變對象的位置時，有些程序員喜歡使用Width，Height，Top和Left屬性。例如：
Image1.Width = 100
Image1.Height = 100
Image1.Top = 0
Image1.Left = 0
實際上這樣做效率很低，因為程序修改了四個屬性，而且每次修改之後，窗口都會被重繪。正確的做法是使用Move方法：
Image1.Move 0,0,100,100
19. 減少圖片的使用
圖片將佔用大量內存，而且處理圖片也需要佔用很多CPU資源。在軟體中，如果可能的話，可以考慮用背景色來替代圖片--當然這只是從技術人員的角度出發看這個問題。
20. 使用ActiveX DLL，而不是ActiveX控制項
如果你設計的ActiveX對象不涉及到用戶界面，使用ActiveX DLL。
編譯優化
我所見過的很多VB程序員從來沒有使用過編譯選項，也沒有試圖搞清楚各個選項之間的差別。下面讓我們來看一下各個選項的具體含義。
1. P-代碼（偽代碼）和本機代碼
你可以選擇將軟體編譯為P-代碼或是本機代碼。預設選項是本機代碼。那什麼是P-代碼和本機代碼呢？
P-代碼：當在VB中執行代碼時，VB首先是將代碼編譯為P-代碼，然後再解釋執行編譯好的P-代碼。在編譯環境下，使用這種代碼要比本機代碼快。選擇P-代碼後，編譯時VB將偽代碼放入一個EXE文件中。
本機代碼：本機代碼是VB6以後才推出的選項。當編譯為EXE文件後，本機代碼的執行速度比P-代碼快。選擇本機代碼後，編譯時VB使用機器指令生成EXE文件。
在使用本機代碼進行編譯時，我發現有時候會引入一些莫名其妙的錯誤。在編譯環境中我的代碼完全正確地被執行了，但是用本機代碼選項生成的EXE文件卻不能正確執行。通常這種情況是在卸載窗口或彈出列印窗口時發生的。我通過在代碼中加入DoEvent語句解決了這個問題。當然出現這種情況的幾率非常少，也許有些VB程序員從來沒有遇到過，但是它的確存在。
在本機代碼中還有幾個選項：
a) 代碼速度優化：該選項可以編譯出速度較快的執行文件，但執行文件比較大。推薦使用
b) 代碼大小優化：該選項可以編譯出比較小的執行文件，但是以犧牲速度為代價的，不推薦使用。
c) 無優化：該選項只是將P-代碼轉化為本機代碼，沒有做任何優化。在調試代碼時可以使用。
d) 針對Pentium Pro優化：雖然該項不是本機代碼中的預設選項，但是我通常會使用該選項。該選項編譯出的可執行程序在Pentium Pro和Pentium 2以上的機器上可以運行得更快，而在比較老的機器上要稍稍慢一些。考慮到現在用Pentium 2都是落伍，所以推薦大家使用該選項。
e) 產生符號化調試信息：該項在編譯過程中生成一些調試信息，使用戶可以利用Visual C++一類的工具來調試編譯好的代碼。使用該選項會生成一個.pdf文件，該文件記錄了可執行文件中的標志信息。當程序擁有API函數或DLL調用時，該選項還是比較有幫助的。
2. 高級優化
高級優化中的設置可以幫助你提高軟體的速度，但是有時候也會引入一些錯誤，因此我建議大家盡量小心地使用它們。如果在代碼中有比較大的循環體或者復雜的數學運算時，選中高級優化中的某些項會大幅度提升代碼的性能。如果你使用了高級優化功能，我建議你嚴格測試編譯好的文件。
a) 假定無別名：可以提高循環體中代碼的執行效率，但是在如果通過變數的引用改變變數值的情況下，例如調用一個方法，變數的引用作為方法的參數，在方法中改變了變數的值的話，就會引發錯誤。有可能只是返回的結果錯誤，也有可能是導致程序中斷運行的嚴重錯誤。
b) 取消數組綁定檢查、取消整數溢出檢查和取消浮點錯誤檢查：在程序運行時，如果通過這些檢查發現了錯誤，錯誤處理代碼會處理這些錯誤。但是如果取消了這些檢查，發生了錯誤程序就無法處理。只有當你確定你的代碼中不會出現上面的這些錯誤時，你才可以使用這些選項。它們將使軟體的性能得到很大的提升。
c) 允許不舍入的浮點操作：選擇該選項可以是編譯出來的程序更快地處理浮點操作。它唯一的缺點就是在比較兩個浮點數時可能會導致不正確的結果。
d) 取消Pentium FDIV安全檢查：該選項是針對一些老的Pentium晶元設置的，現在看來已經過時了。
Ⅳ vb怎麼寫入數據到文件
VB中如何實現向新建文本，並文本中寫入內容
假設你已經將和計算出來（別說這都不會），寧顯示在text1中
Private Sub button1_Click()
'以輸出方式打開new.txt這里有路徑問題參見 "c:\new.txt"就是指輸出到哪個文件
'for output是指打開方式為輸出方式 此方式如果該文件存在則覆蓋
'as #1 打開文件需要佔用工作區的，所以以1號工作區打開該文件
Open "C:\NEW.TXT" For Output As #1
'在一號文件區打開的文件里寫入abc
Print #1, text1.text
'關閉一號工作區
Close #1
'任務完成加詳解，有分沒有？
End Sub
Private Sub button2_Click()
'以輸出方式打開new.txt這里有路徑問題參見 "c:\new.txt"就是指輸出到哪個文件
'as #1 打開文件需要佔用工作區的，所以以1號工作區打開該文件
'for append是指輸出方式為追加方式
Open "C:\NEW.TXT" For Append As #1
'在一號文件區打開的文件里寫入defg
Print #1, text1.text
'關閉一號工作區
Close #1
'任務完成加詳解，有分沒有？
End Sub