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
Ïà¹ØÎÊ´ð£º
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
ÕâÀïÏëÁ˽âÏ£¬¹ØÓÚSQL ServerÖзÖÒ³ºÍOracleÖзÖÒ³£»
ƽ³£Ð´Ó¦ÓóÌÐòµÄʱºò£¬±ÈÈçÓõÄÓïÑÔÊÇJava£¬ÓиöÁбíÒ³Ãæ£¬ÐèÒª¶ÔÊý¾Ý·ÖÒ³ÏÔʾ£»
ÕâÀïÒª·ÖÒ³ÄѵÀ²»ÐèÒª½èÖúJava£¬¶øÖ±½ÓsqlÄÜÖªµÀ·ÖÒ³Âð£¬ÆðÂëÒ²Òª´«¸öÒ³Âë½ ......