vb Ò»¸öÎÊÌâ - VB / »ù´¡Àà
Option Explicit
Public conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
'Public Cnt As Integer 'Õâ¸öCntÊÇÓÃÀ´±íʾÊý¾Ý¿âÊý¾Ý×ÜÁ¿µÄ£¬¶ÔÁ´½Ó¹ý³ÌÎÞ¹Ø
Public Sub connect()
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
Set conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
conn.CursorLocation = adUseClient 'ÒÔConnΪÁ´½ÓÃû½¨Á¢Á´½Ó£¬ÕâÀïÊÇÉèÖÃÊý¾ÝÓα꣨¿Í»§¶ËÊý¾ÝÓα꣩£¬¼´É趨¶ÁÈ¡Êý¾Ý¿âÊý¾ÝÖ®·½Ê½£¨Ò»ÐÐÒ»ÐеضÁ£©
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\renshi.mdb;Persist Security Info=False"
conn.Open
'×Ô¼º¸Ä¶¯Ò»ÏÂÉÏÃæµÄ·¾¶ºÍÎļþÃû¼´¿É£¬ÆäËûµÄ´úÂëÄã²»Àí½âÕÕÕ³ÌùÎÞ·Á
Debug.Print Rs.State
End Sub
Rs.State ×ÜÊÇ0 °¦¡£ ÀÏÁ¬½Ó²»³É¹¦¡£¡£¡£
×ÜÊÇΪ0 °¡¡£¡£¡£ÓôÃÆ ´úÂëÎÒÒ²¿´ÁËÏ ¸Ð¾õûɶ´íÎó
ÔÚ ¹¤³Ì-²¿¼þ-Éè¼Æ Ìí¼ÓÊý¾Ý¿âµÄ²¿¼þ¡£
¿ÉÒÔÁË Ò²Ã»¸Äʲô¶«Î÷ °¦
·Ö¸øÄãÁË
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......