Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

csvÎļþת»»³Ésqlµ¼Èëµ½Êý¾Ý¿â£¬Ã»ÓÐÊý¾ÝΪºÎ£¿

Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......

MS SQL×÷ÒµÎÊÌâ - MS-SQL Server / Ó¦ÓÃʵÀý

ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP

²Î¿¼:http://hi.baidu.com/toiota ......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ