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
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
sql的软件在哪里可以下啊！在网上找了蛮多都用不了啊
随便搞一D版吧，
迅雷第一个就可以用
2000,2005都这样
http://119.147.41.16/down?cid=0698C2D64D7D637D90A6D2482298E6717D4F15CD&t=2&fmt=-1 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
tab1 字段:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 字段:goodsid,goodskind（商品类型）
tab3 字段:goodskind（商品类型）,kindname
结果：
得到商品类型在一段时间 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
