¹ØÓÚmschart ºÍ access µÄÎÊÌâ
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call accessdelete()
Dim sConn As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=tu.mdb"
Dim myConnection As New OleDbConnection(sConn)
Dim myCommand As String = "Select * from tu"
myConnection.Open()
Dim custDA As New OleDbDataAdapter(myCommand, myConnection)
Dim custDS As New DataSet()
custDA.Fill(custDS, "tu")
Dim firstView As New DataView
firstView = custDS.Tables("tu").DefaultView
Chart1.Series("A°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "A")
Chart1.Series("B°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "B")
Chart1.Series("C°à").Points.DataBindXY(firstView, "ÈÕÆÚ", firstView, "C")
custDS.Clear()
custDS.Dispose()
custDA.Dispose()
&nb
Ïà¹ØÎÊ´ð£º
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
²éÁ˺ó¤ºÃ³¤Ê±¼ä£¬ÎÊÌâÖÕÓÚ½â¾ö£¬Ï£ÍûÓÐÕâÑùµÄÎÊÌâµÄÅóÓÑÉÙ×ßЩÍä·¡£
×¢Ò⣬ÎÒÕâÀïʱºòËù˵µÄÊÇÖ»ÓÐÒýÓÃÊý¾Ý¿âµÄÖÐÎÄÂÒÂë£¬Ò³ÃæÆäËûÖÐÎÄÕý³££¬ÆäËûÇé¿öÔò²»Ò»¶¨ÊÊÓá£
ÔÚÏÖÊµÒ³Ãæ×î¶¥¶Ë¼ÓÈëÏÂÃæÁ½¾ä£º
......