vb中sql语句! - VB / 数据库(包含打印,安装,报表)
Set cn = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from attendance1 where 学号 like '" & Text9.Text & "' and 到寝日期 like '" & DTPicker1.Value & "'", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "此同学以到!", vbInformation, "提示"
Else
cn.execute("insert into attendance1(学号,到寝日期,到寝时间)values ('" & Text9.Text & "',#" & Format(Now(), "YYYY-MM-DD") & "#,'" & Format(Now(), "hh点mm分") & "')"
MsgBox "添加完毕", vbInformation, "提示"
access数据库 表 attendance1 字段 学号 到寝日期(时间/日期类型) 到寝时间(文本类型)
添加一次后,再添加就会弹出此同学已到!数据库中无重复数据!
但是把换成sql数据库 表attendance1 字段 学号 到寝日期(datetime类型) 到寝时间(文本类型)
cn.Open "provider=sqloledb;data source=127.0.0.1;initial catalog=student;user id=sa;password=sa;"
就一直弹出添加完毕....没有此同学以到...数据库中 有重复数据!
这是为什么?要怎么改才能没有重复的数据呢?
看半天看不懂写的是什么
...我再改改
我也有些晕。。。。
T
相关问答:
可能因为工作的原因 接触数据库这块比较少,之前都是做程序这块,数据库这块都有专门的人来做 分工都很明细 所以对数据库这一块完全不了解。前段时间 去面试了几家公司 几乎都是在数据库这块挂掉的 连个简单的SQ ......
如何在SQL2005中设定定时作业,比如说定时清理某些表的数据,
或者是定时的将某些表的数据导出excel!
在线等待,急急急,最好是详细步骤!
之前我做的作业有点问题!
帮UP
参考:http://hi.baidu.com/toiota ......
tab1 字段:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 字段:goodsid,goodskind(商品类型)
tab3 字段:goodskind(商品类型),kindname
结果:
得到商品类型在一段时间 ......
dim a as string,b as string,c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串,而不存在c字符串
看看i ......