
2个回答
展开全部
你要的是什么,access 还是 orcle?
orcle的网上有很多,给你一段access的吧
'access 地名字,可以给绝对路经,否则在bin/dubug
Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = Project.MDB"
'sql stement
Dim sqlStr As String = "SELECT * FROM Login"
'定义一个连接
Dim dt As New DataTable()
Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
而orecle 和 access只是少许的不同,很容易的
orcle的网上有很多,给你一段access的吧
'access 地名字,可以给绝对路经,否则在bin/dubug
Dim connStr As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = Project.MDB"
'sql stement
Dim sqlStr As String = "SELECT * FROM Login"
'定义一个连接
Dim dt As New DataTable()
Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
而orecle 和 access只是少许的不同,很容易的

2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
展开全部
'打开连接,返回商品信息
Function DBOpen() As DataSet
Dim sql As NpgsqlConnection = New NpgsqlConnection("user id=postgres;port=5432;Password=qingdao;server=127.0.0.1;database=book")
Dim str As String = "select id as 编号,condigo as 条码,name as 名称,class as 类别,price as 价格,unit as 单位,descuento as 折扣,observacion as 备注 from articulo order by id"
Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(str, sql)
Dim ds As DataSet = New DataSet
da.Fill(ds)
Return ds
End Function
其中参数sql是一个连接字符串,其中我的用的是Postgresql数据库,其实我自己都没听说过
Function DBOpen() As DataSet
Dim sql As NpgsqlConnection = New NpgsqlConnection("user id=postgres;port=5432;Password=qingdao;server=127.0.0.1;database=book")
Dim str As String = "select id as 编号,condigo as 条码,name as 名称,class as 类别,price as 价格,unit as 单位,descuento as 折扣,observacion as 备注 from articulo order by id"
Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(str, sql)
Dim ds As DataSet = New DataSet
da.Fill(ds)
Return ds
End Function
其中参数sql是一个连接字符串,其中我的用的是Postgresql数据库,其实我自己都没听说过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询