access ÖеÄÎı¾µ½Êý¾ÝÀàÐ͵Äת»»
ÓÃCdbl()ÊÔÊÔ
CDbl(str) --> Ë«¾«¶È
CInt(str) --> ÕûÐÍ
CLng(str) --> ³¤ÕûÐÍ
CSng(str) --> µ¥¾«¶È
CDate(str) --> ÈÕÆÚÐÍ
Ïà¹ØÎĵµ£º
ÔÚaccessÖУ¬updateÓï¾ä²»ÄÜÓÐ×Ó²éѯµÄ£¬Èç²»ÔÊÐíÈçÏÂÓï¾ä³öÏÖ£º
UPDATE tblA SET lngID=
(SELECT lngID from tblB WHERE strName='nihao')
ÕâÑù¾ÍÐèÒªÁíÏë°ì·¨½â¾öÎÊÌâ¡£
½â¾ö·½°¸£º
A¡£
¿ÉÒÔÓÃupdateÁíÍâµÄÓï·¨½â¾ö£º
UPDATE Tab1 a,(Select ID,Name from Tab2) b
SET a.Name = ......
Excelµ¼³öº¯Êý
<%
Sub ExportToExcel
Response.ContentType = "application/vnd.ms-Excel"
Response.AddHeader "Content-Disposition", "attachment;Filename=Results.xls"
Response.Write ......
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
Ò»¡¢SQL SERVER ºÍACCESSµÄÊý¾Ýµ¼Èëµ¼³ö
³£¹æµÄÊý¾Ýµ¼Èëµ¼³ö£º
ʹÓÃDTSÏòµ¼Ç¨ÒÆÄãµÄAccessÊý¾Ýµ½SQL Server£¬Äã¿ÉÒÔʹÓÃÕâЩ²½Öè:
¡¡¡¡¡ð1ÔÚSQL SERVERÆóÒµ¹ÜÀíÆ÷ÖеÄTools£¨¹¤¾ß£©²Ëµ¥ÉÏ£¬Ñ¡ÔñData Transformation
¡¡¡¡¡ð2Services£¨Êý¾Ýת»»·þÎñ£©£¬È»ºóÑ¡Ôñ czdImport Data£¨µ¼ÈëÊý¾Ý£©¡£
¡¡¡¡¡ ......
Option Explicit
Private Sub Form_Load()
'¹¤³Ì->ÒýÓÃ->Ñ¡ÖÐMicrosoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......