Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

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

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

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

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

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

vbÒì²½ÎÊÌâ - VB / »ù´¡Àà

ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ