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
Ïà¹ØÎÊ´ð£º
ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP
²Î¿¼:http://hi.baidu.com/toiota ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÐèÇóÈçÏ£º
ѧԺ academy£¨aid,aname£©
°à¼¶ class£¨cid,cname,aid£©
ѧÉú stu(sid,sname,aid,cid)
סËÞÇø region(rid,rname)
ËÞÉáÂ¥ build(bid,rid,bnote) bnoteÊÇ¡®ÄС¯/¡®Å®¡¯
ËÞÉá dorm(did,rid,bid£¬bedn ......
ÕâÀïÏëÁ˽âÏ£¬¹ØÓÚSQL ServerÖзÖÒ³ºÍOracleÖзÖÒ³£»
ƽ³£Ð´Ó¦ÓóÌÐòµÄʱºò£¬±ÈÈçÓõÄÓïÑÔÊÇJava£¬ÓиöÁбíÒ³Ãæ£¬ÐèÒª¶ÔÊý¾Ý·ÖÒ³ÏÔʾ£»
ÕâÀïÒª·ÖÒ³ÄѵÀ²»ÐèÒª½èÖúJava£¬¶øÖ±½ÓsqlÄÜÖªµÀ·ÖÒ³Âð£¬ÆðÂëÒ²Òª´«¸öÒ³Âë½ ......