我是一个非常大的菜鸟!!最近自己试着写一"日记系统",基本的问题都解决了,现在数据库方面出了点麻烦.
在form2上有text1,text2,command1和data1,我建的access数据库叫做"日记",上有两个字段"日期"和"内容".
界面设计大体是这样的,我在text1上输入日期后,点击command1(查询),在 text2中就可显示与text1中日期相符的日记内容.
现向非菜鸟同志求助一段command1的代码???
谢瓜了
在form2上有text1,text2,command1和data1,我建的access数据库叫做"日记",上有两个字段"日期"和"内容".
界面设计大体是这样的,我在text1上输入日期后,点击command1(查询),在 text2中就可显示与text1中日期相符的日记内容.
现向非菜鸟同志求助一段command1的代码???
谢瓜了
解决方案 »
- vb6 creatobject("excel.application") 自动化错误
- 如何对数组快速合并和拆分
- 急求一句代码(连接局域网内SQL服务器)!!!!!!!!!!!!!!!!!!!
- VB中能否嵌入SQL语句!
- VB问题?
- 简单问题:CreateProcessA函数里哪个参数可以控制让程序 HIDE(或最小化)最好是隐藏
- 存储过程的问题!
- 一个小问题!!!!
- 各位大哥誰幫幫小弟:在VB中怎樣通過PRINTER對象設置紙張自定義大小,PRINTER的WIDTH和HEIGHT這兩個對象沒有用.
- 能给我介绍一本VB关于API方面的好书吗?
- 请问XP风格的表格控件用哪个好?
- 关于sock,为何有时取不到数据
自己找找连数据库的例子看看.
使用ADO好些.
'判断text1中是不是有输入日期
if text1.text="" then
msgbox "请输入您要查询的日记的日期"
text1.setfocus'以下为数据库连接字符串,其中"c:\aaa\aa.mdb"为你的数据库所在路径及数据库名字
Dim ConnString As String
Set conn = CreateObject("ADODB.Connection")
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\aaa\aa.mdb;Jet OLEDB:Database Password=databasepw;Persist Security Info=False"
conn.Open ConnString'以下是从数据库中取数据,假设内容与日期字段都是文本格式的
dairyDate=trim(text1.text)
SqlQuery="select 内容 from 日记 where 日期='"+dairyDate+"'"
set rs=conn.execute(SqlQuery)
text2.text=rs("内容")'关闭数据库连接
conn.close因为小弟也是菜鸟,请大家不要见笑,另外,为了避免日期格式的混乱,最好能采用下拉框,而不要用文本框