vb+ACCESS - VB / Êý¾Ý¿â(°üº¬´òÓ¡£¬°²×°£¬±¨±í)
ÓиöÎÊÌ⣬ÎÒÓиöÊý¾Ý¿â£¨ACCESS£©£¬ÆäÖÐÓиö±í£¬±íÀïÃæÓÐÁ½¸öÁÐÃû£¨ÊéÃû¡¢µ¥¼Û£©£¬ÎÒÔõôÓÃvbÀ´¶ÁÈ¡±íÖеĵ¥¼ÛµÄËùÓмǼ£¨Ò²¾ÍÊÇÕâÒ»ÁУ©£¬²¢ÇóºÍ£¬ÏÔʾÔÚvbµÄtextÉÏÃæ¡£
¸÷λ¸ßÊÖ£¬¹ØºõÉúÃü£¬ÎÒÔÚÏߵȣ¡Çë¼±»ØÌû£¡
sqlÓï¾äÈçÏ£º
select µ¥¼Û from ±í '---ËùÓмǼ
select sum(µ¥¼Û) from ±í '---ËùÓмǼÇóºÍ
Ìí¼ÓADODC¿Ø¼þÓÃÒÔÉÏSqlÓï¾äȥʵÏÖ£¬¾ßÌå´úÂëÍøÉ϶àµÄÏóţë¡£
ÄÜÏêϸµãô£¿
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)
¸ßÊÖ£¬ÒÔÉϼ¸¾äʲôÒâ˼£¿
ÎÒÉÏÍø²éÁ˲飬ÇëÎʸßÊÖÃÇ£¬ÎÒÏëÓÃÆÕͨµÄ·½·¨À´ÏÔʾһÁеĺÍÔõô°ì£¿
Dim cnn As New ADODB.Connection
Dim appdisk As String
Dim db As String
Dim ss As String
Dim biaoji As Integer
appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "shujuku.mdb"
cnn.CursorLocation = adUseClient
cnn.Open db '´ò¿ªÊý¾Ý¿âÁ¬½Ó
cnn.Execute (¡£¡£¡£¡£)
cnn.Close
ÔÚÏßµÈѽ£¬Ï£Íû¸ßÊִͽ̣¡
'
'
'
dim rst as new adodb.
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......