vb²ÎÊý´«µÝ£¡ - VB / »ù´¡Àà
Public a As String
Private Sub Command1_Click()
a = Text1.Text
End Sub
ÀýÈç text1ÖÐÊäÈë 127.0.0.1 xxx.xxx.xxx.xxx
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=sqloledb; data source=xxx.xxx.xxx.xxx;initial catalog=student1;user id=sa;password=sa;"
Adodc1.RecordSource = "student1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
data source=ÔõôÏÔʾtext1.textÄÚÈÝ...
ÄÜÔÚ¾ÖÓòÍøÄÚÁ¬½ÓÉÏ...
data source=text1.text,
ǰÌáÊÇtext1.textÓÐÖµ£¬²»È»µÄ»°ÄãµÄ²ÎÊý´«²»½øÈ¥µÄ£¬½¨ÒéÄã°Ñ³õʼµÄtext1.textдÔÚÊý¾Ý¿âÖУ¬ÕâÑù¿ÉÒԸ͝¡£
лÁË ~
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......