
往aa。mdb数据库里的ss表的x列添加text1里的内容
Dim conn As New ADODBConnection
Private Sub form_load()
connOpen "Provider=MicrosoftJetOLEDB40;Persist Security Info=False;Data Source=" & AppPath & "\aamdb;", "admin"
Command1Caption = "保存"
End Sub
Private Sub command1_click()
connExecute "insert into ss (x) values ('" & Text1Text & "')"
End Sub
修改回答
Private Sub Command1_Click() '储存
Open AppPath & "\1txt" For Append As #1
Print #1, Replace(Text1, " ", "") & " " & Replace(Text2, " ", "")
Close #1
End Sub
Private Sub Command2_Click() '显示
Dim a As String
Open AppPath & "\1txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
t = Split(a, " ")
If UBound(t) = 1 Then
If t(0) = Text1 Then
Text2 = t(1)
Exit Do
End If
End If
Loop
Close #1
End Sub
'请参考。
都是用SQL语句完成的
写入数据库
strSQL="INTO TABLENAME (OPTION1,OPTIN2)VALUES(VALUE1,VALUE2)";
cmdConnection = conn;
cmdCommandText = strSQL;
cmdParametersAdd(paramrs[i]);
try
{
connOpen();
}
catch(Exception ex)
{
throw ex;
}
finally
{
cmdParametersClear();
cmdCommandText = null;
cmdDispose();
connClose();
}
读取值
strSQL ="SELECT OPTION1,OPTION2 FROM TABLENAME";
cmdCommandText = strSQL;
cmdConnection = conn;
DataSet ds = new DataSet();
try
{
connOpen();
SqlDataAdapter da = new SqlDataAdapter(cmd);
daFill(ds);
}
catch (Exception ex)
{
throw ex;
}
finally
{
cmdDispose();
connClose();
}
TextBox2text = dsTables[0]rows[0][0]valuetostring();
首先你要从数据库提取出你要放在TREEVIEW里的字段,当然是分类提取,然后根据提取到的字段分别绑定,中间还存在自我判断等,所需要的过程相对比较复杂,需进行多次运算,飞人建议分开来写,没必要一次就全部绑定到treeview否则会加长运算时间,使用感觉会差一些,至于保存成指定格式,那就看你自己的了,因为保存成什么样的后缀文件可以自己规定,导出时你所使用的是什么控件根据控件不同,导出的方式也略有不同
提取treeview所需数据时需要分各个节点来提取,这样可以加快提取精准度,同事会让使用者感觉速度快
这个
就要把数据
保存在数据库
或者其他文件里了
这样下次运行
自动加载
就可以了
你把电话号码放在数组了
比如a(n)
for
u=
0
to
n
b=b
&
a(u)
&
crlf
next
u
open
apppath
&
"\系统文件\信息dll"
for
append
as
#1
'文档地址随意
#1,
b
close
#1
这样
你就把
所有数组
保存到
上面那个文件里了
下次运行时
再把它赋给数组
就行了
我有一个现成的
程序
就是电话薄
的
你要的话
把邮箱给我
我发给你!!
以上就是关于vb6.0怎么接数据保存到数据库中全部的内容,包括:vb6.0怎么接数据保存到数据库中、vb 如何存储数据、vb.net保存数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)