导航:首页 > 数据分析 > vb如何写数据

vb如何写数据

发布时间:2023-02-03 22:12:51

① 如何用VB建立数据库

1、首先点击打开主菜单栏中的“外接程序”选项。

② 怎样用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、vb6中可以使用以下方式输入数据:
a)使用inputbox()函数输入数据;
b)使用Textbox控件(文本框)输入数据;
c)使用文件输入数据;
d)使用数据库输入数据等。
2、详解inputbox()函数输入数据,示例如下:
InputBox 函数:在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。
语法:
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
示例:
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' 设置提示信息。
Title = "InputBox Demo" ' 设置标题。
Default = "1" ' 设置缺省值。
' 显示信息、标题及缺省值。
MyValue = InputBox(Message, Title, Default)

' 使用帮助文件及上下文。“帮助”按钮便会自动出现。
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。
MyValue = InputBox(Message, Title, Default, 100, 100)
4、其它输入方法可以网上查找或看MSDN。

④ vb读写数据

Private Sub Command1_Click()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 1)
Dim a1() As String: Dim a2() As String: Dim a3() As String
a1 = Split(f1.ReadLine): a2 = Split(f1.ReadLine): a3 = Split(f1.ReadLine)
Text1.Text = a1(0): Text2.Text = a1(1): Text3.Text = a1(2)
Text4.Text = a2(0): Text5.Text = a2(1): Text6.Text = a2(2)
Text7.Text = a3(0): Text8.Text = a3(1): Text9.Text = a3(2)
End Sub

Private Sub Form_Load()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 2)
f1.WriteLine Text1.Text & " " & Text2.Text & " " & Text3.Text
f1.WriteLine Text4.Text & " " & Text5.Text & " " & Text6.Text
f1.WriteLine Text7.Text & " " & Text8.Text & " " & Text9.Text
End Sub
测试成功

⑤ vb 数据怎么写入excel

'在工程中添加对Excel的引用

DimxlsAppAsExcel.Application

DimxlsBookAsExcel.Workbook

PrivateSubCommand1_Click()

DimIAsInteger

SetxlsApp=Excel.Application

xlsApp.Visible=False

SetxlsBook=xlsApp.Workbooks.Open("D:11.xls")

I=1

DoWhilexlsApp.Sheets(1).cells(I,1)<>""

I=I+1

Loop

xlsApp.Sheets(1).cells(I,1)=Text1.Text

xlsBook.Close(True)

xlsApp.Quit

SetxlsApp=Nothing

MsgBox"数据写入成功!"

EndSub

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

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

阅读全文

与vb如何写数据相关的资料

热点内容
iphone4ios71降级613 浏览:650
garageband升级 浏览:689
科学linux 浏览:447
哪里的app理财好 浏览:799
linux下线程的创建线程数 浏览:804
怎么改变文件大小 浏览:574
飞雪流水软件注册破解工具 浏览:814
csgo比赛数据哪里看 浏览:961
已越狱iphone4升级ios7 浏览:607
微信分享但不是微商 浏览:877
git子模块如何获取最新数据 浏览:446
java项目ppt模板下载不了 浏览:493
不常用的app怎么取消 浏览:230
js多点滑动选取范围 浏览:756
环境监测app怎么下载 浏览:444
美创科技外数据安全领域怎么样 浏览:143
苹果手机上怎么修改文件表 浏览:865
网上如何年审营业执照网站 浏览:304
电信版iphone好吗 浏览:469
潇湘冬儿在哪个网站 浏览:838

友情链接