vb如何寫數據

⑥ 如何用VB讀寫EXCEL中數據

分類: 電腦/網路 >> 程序設計 >> 其他編程語言
問題描述:

最好詳細點，兄弟笨笨的呢

解析:

Private Sub Form_Load()

Text1.Text = App.Path & "\123.xls"

Text2.Text = App.Path & "\123.mdb"

Text3.Text = "sheet1"

Text4.Text = "sheet1"

Data1.DatabaseName = App.Path & "\123.mdb"

End Sub

Private Sub Command1_Click()

Dim db As Database

Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

AccessPath = Text2.Text '資料庫路徑

excelpath = Text1.Text '電子表格路經

AccessTable = Text4.Text '資料庫內表格

sheet = Text3.Text '電子表格內工作表

Set db = OpenDatabase(excelpath, True, False, "Excel 5.0") '打開電子表格文件

SQL = ("Select * into [;database=" & AccessPath & "]." & AccessTable & " FROM [" & sheet & "$]")

db.Execute (SQL) '將電子表格導入資料庫

Data1.RecordSource = "sheet1"

Data1.Refresh

DBGrid1.Refresh '顯示電子表格導入到資料庫的數據

End Sub

上面的是把EXCEL讀取到資料庫中,你做點修改就行了.一個Data控制項.

⑦ VB如何向記事本寫入數據

當然可以咯。
格式是這樣的：
Open
"(Path
&
FileName).txt"
For
Output/Append
As
#1
Print
#1,exp1,exp2，……
Close
#1
注意：
引號
里邊是文件名，
擴展名
可以省略，但若是要能用記事本打開的話，就需要補充.txt作為其擴展名。Output是將原內容刪除重寫，Append是補寫，不刪除原內容，如果沒有這個文件，將新建一個文件。
exp是要寫入記事本的表達式

⑧ 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

⑨ VB 向資料庫 寫入數據

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cc As String
Sub aa()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library" 『這里要改成連接的資料庫。
cn.Open cc
End Sub
以上是模塊代碼。

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "請輸入商品ID！"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "請輸入商品名稱！"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "請輸入商品價格！"
Text3.SetFocus
Exit Sub
End If
sql = "select * from goods where goodid='" & Text1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, 1, 3
If rs.EOF Then
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Text3.Text
rs.Update
MsgBox "商品信息添加成功！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Else
MsgBox "此ID已存在，請輸入新ID！"
Text1.Text = ""
Text1.SetFocus
End If
rs.Close
Set rs = Nothing
End Sub

Private Sub Form_Load()
Call aa
End Sub
以上是窗體代碼。

你好好看一下，這是一個正確的源代碼。