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

vbʹÓÃpicturebox¿Ø¼þ

ÎÒÏëʹÓÃpicturebox¿Ø¼þ»­Í¼
ÎÒµÄsqlÊý¾Ý¿âÖÐÊý¾Ý±íÃû×ÖÊÇudata£¬ÆäÖÐÓÐÁ½ÁУ¬Ò»ÁÐÊÇsdatetime£¬ÁíÒ»ÁÐÊÇdata¡£ÎÒÏëÓÃÆäÖеÄsdatetimeÁеÄÊýÖµ£¨Ê±¼ä£©×÷Ϊºá×ø±ê£¬dataÁеÄÊýÖµ£¨Êý¾Ý£©×÷Ϊ×Ý×ø±ê¡£
ÔÚÒ»¸öеÄformÖУ¬ÓÐÒ»¸öÃüÁî°´Å¥£¬µã»÷ÃüÁî°´Å¥£¬¾Í°Ñͼ»æÖƳö¡£
´úÂ뾡Á¿Ïêϸ£¬¼ÓÉÏ×¢ÊÍ¡£
Ó¦¸ÃÔõô×öÄØ£¬Ð»Ð»´ó¼Ò£¬ÒªÊÇÄÜ×ö³öÀ´£¬ÎÒÔÙ×·¼Ó·ÖÊý¡£Ð»Ð»À²¡£
ÆäÖÐÕâ¸öÊý¾Ý±íµÄÊý¾Ý»¹ÊǼÌÐøÔö¼ÓµÄ£¬Ò²¾ÍÊǺá×ø±ê»¹ÊÇÔö¼ÓµÄ£¬Ð»Ð»À²
×ø±êÊǵ㣬µãÒªÁ¬½Ó£¿ÕÛÏßͼ£¿

Â¥Ö÷¿ÉÒÔÊÔÊÔMSChart¿Ø¼þ

ÒýÓÃ
×ø±êÊǵ㣬µãÒªÁ¬½Ó£¿ÕÛÏßͼ£¿
×ø±êÊǵ㣬°ÑµãÁ¬½ÓÆðÀ´£¬»­³öÕÛÏßͼ¾ÍÐС£

ÒýÓÃ
Â¥Ö÷¿ÉÒÔÊÔÊÔMSChart¿Ø¼þ
mschartÎÒ²»Ì«»áÓÃ

Private Sub Form_Load()
Dim sql As String
Dim sdata(1 To 15, 1 To 14) As Variant
Dim rs As New Recordset
Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
sql = "Select sdatetime,data from udata"
's = "Select sdatetime,data from udata"
'Set rs = GetRs(s)
rs.Open sql, cn, adOpenStatic, adLockReadOnly

If rs.RecordCount = 0 Then Exit Sub
ReDim ss(rs.RecordCount)
   
    With mctChart

      .Row = 1     
    &n


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......

VB datagridviewµ×²¿ºÏ¼Æ

ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  &nbs ......

VB×¢²áÎÊÌâ

Ò»¸ö Óû§¿Ø¼þ  2¸öÃÜÂë¿Ø¼þ Ò»¸ö °´Å¥¿Ø¼þ  2¸öÃÜÂë¿Ø¼þÓÃÀ´ÑéÖ¤ÃÜÂë ¶øÇÒÓû§¿Ø¼þÐèÒªÑéÖ¤ÊÇ·ñÓÐÓû§Ãû´æÔÚ È»ºó×¢²áÁ¬½Óµ½MSSQL 2000µÄdataÊý¾Ý¿âÖÐµÄ user±íµÄ userºÍ passÖÐÈ¥  Ë­ÄÜ·ñ½ÌÎÒһϠ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ