VB.net²Ù×÷AccessÎÊÌâ
ÓõÄÊÇ2008дÁËÒ»¶ÎÅжÏÊý¾Ý¿âDbNameÖÐÊÇ·ñÓбíTabNameµÄ³ÌÐò£¬µ«ÊÇÔÚµ÷ÓõÄʱºò³öÏÖÁËÊý¾Ý¿âÃû³Æ²»ÄÜת»»ÎªDoubleÐÍÊý¾ÝµÄÎÊÌ⣬µ«ÊÇÔÚÕâµ±ÖÐÎÒ¸ù±¾Ã»ÓÐÉèÖÃDoubleÐÍÊý¾Ý£¬¸Õ¿ªÊ¼½Ó´¥VB.net£¬²»ÊǺܶ®£¬´ó¼Ò°ïæ°¡£¡£¡ÆäËû²Ù×÷Êý¾Ý¿âµÄʱºòÒ²³öÏÖ¹ýÕâÖÖÎÊÌâ¡£
Public Function FindTabName(ByVal TabName As String, ByVal DbName As String) As Boolean
Dim myDs As New DataSet
Dim myDa As New OleDbDataAdapter
Dim myCon As New OleDbConnection
Dim myConString As String
Dim myCom As New OleDbCommand
Dim I As Integer
Dim mytable As String
FindTabName = False
Try
myConString = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source =" + DbName
myCon.ConnectionString = myConString
myCon.Open()
myCom.Connection = myCon
myCom.CommandText = "select * from " & +DbName
myDa.SelectCommand = myCom
myDa
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......