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
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP
²Î¿¼:http://hi.baidu.com/toiota ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......