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

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.


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

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

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

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

accessÊý¾Ý¿âÁ¬½Ó - Web ¿ª·¢ / ASP

ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ