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

VBÖÐÔõÑù½«´ÓSQLµ¼³öµÄ.xlsÎļþ¼ÓÉÏÖ»¶ÁȨÏÞ£¿

ÏÖÔÚÓöµ½¸öÎÊÌ⣬Ï뽫´ÓVBÖе¼³öµÄexcelÎļþ×Ô¶¯¼ÓÉÏÖ»¶ÁȨÏÞ£¬·ÀÖ¹Ð޸ġ£²»Öª´ÓÄÇÈëÊÖ
Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes  = 1

ÔËÐÐSet f = fs.GetFile(fs.GetFileName(filespec)) Õâ¾äÌáʾ³ÌÐòºô½Ð»òÒýÊý²»ÕýÈ·¡£ÊDz»ÊÇ»¹Òª¶¨Òåʲ÷᣿

fs.GetFile(ÎļþÃû)
°üÀ¨Â·¾¶

Private Sub Command3_Click()
Dim excelapp As Object
Dim excelsheet As Object
Dim excelbook As Object
Dim col As Integer
Dim row As Integer
Set excelapp = CreateObject("Excel.application")
excelapp.Visible = True
Set excelbook = excelapp.Workbooks.Add 
Set excelsheet = excelapp.activesheet
Me.MousePointer = 11
ListView1.SortKey = 2
ListView1.Sorted = True
ListView1.Sorted = False
  excelsheet.Cells(1, 1) = "¥Í²£"
  excelsheet.Cells(1, 2) = "絚¸¹"
  excelsheet.Cells(1, 3) = "¤á¾ã¾÷¸¹"
  excelsheet.Cells(1, 4) = "¾ã¾÷絪¸¹"
  excelsheet.Cells(1, 5) = "¸Ë¤é´Á"
  excelsheet.Cells(1, 6) = "¤á±ø絏1"
  excelsheet.Cells(1, 7) = "¤á±ø絏2"
  excelsheet.Cells(1, 8) = "¤á±ø絏3"
  excelsheet.Cells(1


Ïà¹ØÎÊ´ð£º

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

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

sqlÓï¾ä¶à±í¶à×ֶβéѯ - MS-SQL Server / »ù´¡Àà

ÎÒÓжà¸ö±íA B C ½á¹¹ÊÇÒ»ÑùµÄ£¬¶¼ÓÐ2¸ö×Ö¶ÎnameºÍcontent,ÎÒÒªËÑË÷ËùÒÔ±íËùÓÐ×Ö¶ÎÖаüº¬¡°Öйú¡±µÄÄÚÈÝ Õâ¸öSQLÓï¾äÔõôд 

ÈçºÎ½«¶à¸ö±íµÄ²éѯ½á¹ûÁ¬³ÉÒ»¸ö±í Õâ¸öSQLÓï¾äÔõôд ±íµÄ½á¹¹ÊÇÒ»ÑùµÄ
ÀýÈç£ ......

Êý¾ÝÒÔxml¸ñʽ·µ»Ø - MS-SQL Server / Ó¦ÓÃʵÀý

´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ