1.添加:sql = "insert into Info (Name) values('" & NameCombo.Text & "')"2.排序:sql = "select *from Info order by 成績"3.刪除:sql = "delete *from Info where 成績='80' "
datagrid功能有限,用其他表格控件吧,如msflexgrid或者C1的grid。 然后用ADO实现。 dim conn as new adodb.connection conn.connectstring="....." conn.execute sql sql就可以用楼上的语句了。
DataGrid對初學者來說, 相對簡單點; '////////////////////////////////////////////////////////////////////////////////////////////////////////// ' 更新"DataGrid1"數據 'Dim strQuery As String 'Update數據 strQuery = "select * from Info order by SN" Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\information.mdb" Me.Adodc2.RecordSource = strQuery If strQuery <> "" Then Me.Adodc2.Refresh End If Set Me.DataGrid1.DataSource = Me.Adodc2.Recordset Me.Adodc2.Recordset.MoveLast '指向Last Me.DataGrid1.Refresh '//////////////////////////////////////////////////////////////////////////////////////////////////////////
楼上给出的只是方法,具体的还要添加好多语句,用adodc+datagrid数据绑定最简单,很适合初学者.看看例子,对你会有帮助
然后用ADO实现。
dim conn as new adodb.connection
conn.connectstring="....."
conn.execute sql
sql就可以用楼上的语句了。
相對簡單點; '//////////////////////////////////////////////////////////////////////////////////////////////////////////
' 更新"DataGrid1"數據
'Dim strQuery As String 'Update數據
strQuery = "select * from Info order by SN"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\information.mdb"
Me.Adodc2.RecordSource = strQuery
If strQuery <> "" Then
Me.Adodc2.Refresh
End If
Set Me.DataGrid1.DataSource = Me.Adodc2.Recordset
Me.Adodc2.Recordset.MoveLast '指向Last
Me.DataGrid1.Refresh
'//////////////////////////////////////////////////////////////////////////////////////////////////////////