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
以上是窗体代码。

你好好看一下，这是一个正确的源代码。