佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 931|回复: 1

在 VB.Net的GridData里Key in 一些data。

[复制链接]
alexlcng 该用户已被删除
发表于 31-10-2005 03:56 PM | 显示全部楼层 |阅读模式
请问有谁知道如何Key in data 在VB.Net 的grid data的Cell里。

请各位帮帮忙替小弟解答。谢谢!
回复

使用道具 举报


ADVERTISEMENT

发表于 2-11-2005 11:33 PM | 显示全部楼层
ADO的做法:
(需要add reference去ADODB)
Dim rs As New ADODB.Recordset
Dim MyConnection As New ADODB.Connection

Dim tb As New DataTable
Dim ds As New DataSet
Dim Rec1(2) As Object

Myconnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\My Documents\programming\Prog2\Ot(jul~1.mdb")

rs.Open("Employee", Myconnection)

tb.Columns.Add(rs.Fields(0).Name)
tb.Columns.Add(rs.Fields(1).Name)
tb.Columns.Add(rs.Fields(2).Name)

Rec1(0) = rs.Fields(0).Value
Rec1(1) = rs.Fields(1).Value
Rec1(2) = rs.Fields(2).Value
tb.Rows.Add(Rec1)

ds.Tables.Add(tb)
DataGrid1.DataSource = ds.Tables(0)


ADO.NET的做法:
(以下的这些coding都可以用designer和wizard做到,不用自己打coding)
Dim ds As New DataSet

Dim OleDbConnect As New OleDb.OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\My Documents\programming\Prog2\Ot(jul~1.mdb")

Dim MyOleDb As New OleDb.OleDbDataAdapter( _
"select * from Employee", OleDbConnect)

MyOleDb.Fill(ds)
DataGrid1.DataSource = ds.Tables(0)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 25-7-2025 12:45 AM , Processed in 0.099491 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表