¹ØÓÚ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
Ïà¹ØÎÊ´ð£º
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
ÒÑÖªÁ½¸öÊý¾Ý¿â£¬·Ö±ðΪBASE.MDB ºÍ BASE2.DBF
×ֶηֱðΪBASE.MDB:NAME NAME2 NAME3
A B C
D E F
......