ÈçÌ⣬ÓÃvb±à³ÌÈçºÎ»ñÈ¡sql2005µÄ×Ö¶ÎÃèÊö£¬Ò²¾ÍÊÇ×ֶεÄ˵Ã÷£¿Ð»Ð»£¡
×ֶεÄ˵Ã÷£¿Ê²Ã´Òâ˼£¿×Ö¶ÎÓÐ˵Ã÷Â𣿻¹ÊÇ×ֶεÄÃû³Æ ->Rs.Fields.Name
²»ÊÇ×ֶεÄÃû³Æ£¬×ֶεÄÃû³ÆÓÐʱÊÇÓ¢Îĵģ¬ÓÃÖÐÎÄÀ´ÃèÊöËü£¬ÏÖÔÚÏë»ñÈ¡Ëü£¬Óõ½Êý¾Ý¿âÖÐÈ¥¡£
Rs.Fields. µÄ²ÎÊýÓ¦¸ÃûÓеģ¬ÎÒÊÔ¹ýÁË¡£
ÒýÓÃ
Rs.Fields. µÄ²ÎÊýÓ¦¸ ......
vb ÔõôʵÏÖ·ÃÎʱðµÄ»úÆ÷µÄ¹²ÏíÎļþ¼Ð£¬½øÐжÁд
лл
Ö±½ÓÊäÈëÍøÂç·¾¶²»¶Ô£¿
ÒªÏȾßÓжÁдµÄȨÏÞ°É
¹Ø×¢£¡Ç󾡿ÉÄÜÏêϸµÄ˼··½·¨»ò´úÂ룬¶¥¡£¡£¡£¡£¡£¡£
ÆÚ´ý ½â¾ö
²»Òª°ÑËüÓ³Éä³ÉÅÌ·û
ÓÃÅÌ·û²»ÊÇ¿ÉÒÔÂð
UP....
shell("net use z: \\192.168.1.123\e$ password /PERSISTENT:NO")'Ó³ÉäÍø ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com
°ïÂ¥Ö÷¶¥Ò»¶¥¡£¡£¡£
ÄÑ°¡ ¡â
¸Ðлcaozhy£¬µ«ÕâÁ½ÖÖ¶¼²»Êʺϡ£
»¹Íû¸ßÊÖÖ¸½Ì¡£
......
ÎÒÕâÑùдµÄ.
VC DLL²¿·Ö
size_t *Ep2ReadLen;
extern "C" int _stdcall TestDLL(size_t* iPort2ReadLen)
{
Ep2ReadLen = iPort2ReadLen;
*Ep2ReadLen = 5; //͉˕
if (Ep2ReadLen)
{
free(Ep2ReadLen);
//Ep2ReadLen=NULL;
}
return 0;
}
VB²¿·Ö
Declare Function TestDLL Lib "XXX.dll" ......
Dim appAccess As Access.Application
'´ò¿ªD:DB1.MDBÎļþ²¢´´½¨Ò»¸ö´°ÌåÖ®ºó¹Ø±Õ
Const strConPathToSamples = "D:"
Dim frm As Form, strDB As String
'°ÑÎļþ·¾¶¸³¸ø±äÁ¿
strDB = strConPathToSamples & "\db1.mdb"
' ´´½¨Ò»¸öеÄAcce ......
Private Sub Command1_Click()
Dim a(1 To 7)
For i = 1 To 7
a(i) = i: Print a(i)
Next i
Print
For i = 1 To 7
t = a(7)
For £¿£¿£¿£¿
a(j + 1) = a(j)
Next j
£¿£¿£¿£¿
For j = i To 7
&nb ......