ÓÃvb.net´úÈçºÎ°Ñgridview°ó¶¨µ½accessÊý¾ÝÔ´
http://www.ntdrv.cn/Blog/Article.aspx?ID=1415
LOOK~
DataSet ds=new DataSet();
using(OledbDataAdapter adp=new OledbDataAdapter("select * from news",conStr))
{
adp.Fill(ds);
}
if(ds!=null&&ds.table[0].rows.count>0)
......
´ó¼ÒºÃ ÎÒÓÃvb6.0×öÁËÒ»¸öСϵͳ£¬ÎÒÏëÓÃsetup factory Õâ¸öÈí¼þ°ÑÕâ¸öϵͳÓëÊý¾Ý¿âÒ»Æð´ò°ü°²×°¡£ÎÒÊǰÑÕâvbÉú³ÉµÄexeÓëÊý¾Ý¿âÒ»ÆðÌí¼Óµ½ÀïÃæÅªµÃ¡£ ÎÒ·ÅÔÚ×Ô¼ºµçÄÔÉϰ²×°ÔËÐпÉÒÔ£¬µ«ÊǷŵ½ÆäËûµçÄÔÉϾͳöÏÖ´íÎó¡£ÎÒ°Ù¶ÈÁËһϺÃÏñÐèÒªÌí¼ÓdllÓëocx£¬µ«ÊÇÎÒ¿´²»Ã÷°×£¬Ï£ÍûÄãÃÇÄܰïÎÒһϣ¬½Ì½ÌÎÒÔõô°ÑÒ»¸övbÉú³ÉµÄexeÓëÊ ......
[size=11px][/ÎÒÊÇÒ»¸öVBÐÂÊÖ£¬ÏëѧϰһÏÂÔõôÓÃADOÁ¬½ÓORACLE,ÔÚÂÛ̳¿´Á˰ëÌìµÄÌù×Ó£¬Ô½À´Ô½ºýÍ¿£¬Ï£Íû´óϺÃÇÄܸø¸öÏêϸµãµÄ½Ì³Ì£¡£¡[size]
²»Òª¿´Ìù×Ó£¬ÏÈ¿´Ò»Ï£Á£Ä£ÏµÄ½éÉÜ£¬ÆäÖÐÓкܶàÀý×Ó¡£
¸øÄã¶Î´úÂ룬¿´ÄÜ·ñ¿´¶®
'ÒýÓÃado¶ÔÏó2.5
Dim cnGet As ADODB.Connection
Dim rsGet As ADODB.Recordset
......
±ÈÈ磺ÎÒÓиöÓÃvb±àдµÄdllÎļþÊÇaa.dll,ÄÇôÔÚÓÃvb±àдµÄexeÎļþÖÐÔõôµ÷Ó𡣡£¡£¡Ð»Ð»°¡£¡£¡£¡£¡£¡
²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓÃ
ÕÒµ½ÄãµÄDllÎļþ£¬¼´¿ÉÒýÓÃ
ʹÓñê×¼µÄAPIµ÷Ó÷½·¨Ò²¿ÉÒÔʵÏÖ
CreateObject()
ÒýÓÃ
²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓÃ
ÕÒµ½ÄãµÄDllÎÄ ......
ºÜ¼òµ¥µÄ³ÌÐò Èç6-12=-6ÏÔʾµ½±à¼¿òÖÐ ¿ÉÊÇÏÔʾ±ä³ÉÁË6- Ôõô½â¾ö
´úÂëÔõôдµÄ?
¹À¼ÆÊÇ¿ØÖÆÃæ°åÖÐÇøÓòºÍÓïÑÔɶɶµÄ¸ºÊý¸ñʽÉèÖò»ÕýÈ·
¿ÉÒÔÊÔÊÔ
Text1.Text = format(6 - 12 ,"0;-0;0")
ÎÞ´úÂëÎÞÕæÏà!
MSDNÖеĽâÊÍ
FORMATº¯Êý
¸ñʽÉèÖÃ×Ö·û´®ÖÐÖ§³ÖËĸö²¿·Ö¡£ÕâЩ²¿·ÖÓ ......
´úÂëÈçÏ£º
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim dogid As Integer
dogid = 11602
cn1.Open "Driver={Microsoft Access Driver (*.mdb)};
&n ......