以下的连接 mdb 数据库的连接字串怎么写呀

feeling 2003-10-17 04:25:42
引入
Imports System.Data.SqlClient
Imports System.Data


以下的连接 mdb 数据库的连接字串怎么写呀

Public cn As New SqlClient.SqlConnection
cn.ConnectionString =" " '这里不会写呀
cn.Open()
...全文
56 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
zlbing 2003-10-17
  • 打赏
  • 举报
 回复
同意各个楼上
acewang 2003-10-17
  • 打赏
  • 举报
 回复
Access
ODBC


Standard Security:
"Driver={Microsoft Access Driver (*.mdb)};Dbq=\somepath\mydb.mdb;Uid=Admin;Pwd=asdasd;"


Workgroup:
"Driver={Microsoft Access Driver (*.mdb)};Dbq=\somepath\mydb.mdb;SystemDB=\somepath\mydb.mdw;","admin", ""


OLEDB, OleDbConnection (.NET)


Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=asdasd;"


Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;","admin", ""


With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;","admin", ""
acewang 2003-10-17
  • 打赏
  • 举报
 回复
public void CreateOleDbConnection()
{
string myConnString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=Northwind;Integrated Security=SSPI;";
OleDbConnection myConnection = new OleDbConnection(myConnString);
myConnection.Open();
MessageBox.Show("ServerVersion: " + myConnection.ServerVersion
+ "\nDataSource: " + myConnection.DataSource.ToString());
myConnection.Close();
}
qiuji 2003-10-17
  • 打赏
  • 举报
 回复
首先，连接access数据库，应该是：
Imports System.Data
Imports System.Data.OleDb

连接字符串的写法：
'使用相对路径
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database\mydatabase.mdb")

'使用绝对路径
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\database\\mydatabase.mdb")
srj911 2003-10-17
  • 打赏
  • 举报
 回复
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ Page Language="vb" Debug="true" %>
<%@import namespace="system.data"%>
<%@import namespace="system.data.sqlclient"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>职务维护</title>
</head>
<script language="VB" runat="server">
dim conn as sqlconnection
dim cmd as sqlcommand
dim reader as sqldatareader
dim ada as sqldataadapter
dim ds as dataset
sub bingding()
conn=new sqlconnection("data source=lzh\lzh;initial catalog=renshi;user id=sa;password=sql;")
conn.open()
ada=new sqldataadapter("select * from zw",conn)
ds=new dataset
ada.fill(ds,"zw")
datagrid1.datasource=ds.tables("zw").defaultview
datagrid1.databind()

end sub
sub page_load(sender as object,e as eventargs)
if not ispostback then
bingding()
end if
end sub
sub datagrid_update(sender as object,e as datagridcommandeventargs)
dim zwmctxt as textbox=e.item.cells(2).controls(0)
dim zwid as string=e.item.cells(1).text
dim sqlstr,zwmc as string
zwmc=zwmctxt.text
sqlstr="update zw set zwmc='"+zwmc+"' where zwid='"+zwid+"'"
conn=new sqlconnection("data source=lzh\lzh;initial catalog=renshi;user id=sa;password=sql;")
conn.open()
cmd=new sqlcommand(sqlstr,conn)
cmd.executenonquery()
datagrid1.edititemindex=-1
bingding()
end sub
sub datagrid_cancel(sender as object,e as datagridcommandeventargs)
datagrid1.edititemindex=-1
bingding()
end sub

sub datagrid_edit(sender as object,e as datagridcommandeventargs)
datagrid1.edititemindex=e.item.itemindex
bingding()
end sub
</script>
<body>
<div align="center"><font color="#CC9966" size="+1"><b>职务维护</b></font></div>
<form runat="server">
<table cellpadding="2" cellspacing="0" border="1" width="85%">
<tr><td></td>
<td><asp:datagrid ID="datagrid1" runat="server" HeaderStyle-BackColor="#aaaadd" ItemStyle-BackColor="#c0c0c0"
HeaderStyle-Font-Name="verdana" Font-Size="10px" Font-Name="verdana" border="1" BorderColor="red"
CellPadding="2" CellSpacing="0" AutoGenerateColumns="false" Width="100%" DataKeyField="zwid"
OnEditCommand="datagrid_edit"
OnUpdateCommand="datagrid_update"
OnCancelCommand="datagrid_cancel"
>
<columns>
<asp:editcommandcolumn
EditText="编辑" UpdateText="更新" CancelText="取消" HeaderText="职务维护" ItemStyle-Wrap="false"
HeaderStyle-Wrap="false"/>
<asp:boundcolumn DataField="zwid" HeaderText="职务号" ReadOnly="true"/>
<asp:boundcolumn DataField="zwmc" HeaderText="职务名称"/>
</columns>
</asp:datagrid>


</td>
</tr>
</table>
</form>
</body>
</html>
rgbcn 2003-10-17
  • 打赏
  • 举报
 回复
这个是连sql server 的

连mdb 用
Imports System.Data.OleDb
按我上面说的准没错
feeling 2003-10-17
  • 打赏
  • 举报
 回复
引入
Imports System.Data.SqlClient
Imports System.Data

这个不能用作 mdb 数据库吗？
zsww 2003-10-17
  • 打赏
  • 举报
 回复
给你个参考：

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Public Class WebForm1
Inherits System.Web.UI.Page

Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
'网页组件初始设置
lblMsg.Text = "开始登陆"
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub

Sub ButtonOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click

Dim strConn, strSQL As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Intranet.mdb")
strSQL = "select e.emp01,d.dep02,e.emp03,e.emp04,e.emp05 from emp e,dept d"
strSQL = strSQL & " where e.emp01='" & TextBox1.Text & "' and e.emp09='" & TextBox2.Text & "'"
strSQL = strSQL & " and e.emp02=d.dep01"

'建立数据库连接
Dim myConn As New OleDbConnection(strConn)
myConn.Open()

'建立OleDbCommand对象,以便执行SQL指令或获取OleDbDataReader对象
Dim myCommand As New OleDbCommand(strSQL, myConn)

'取得OleDbDataReader对象
Dim dr As OleDbDataReader
dr = myCommand.ExecuteReader()

If dr.Read() Then
Session("UserID") = dr.Item(0)
If dr.IsDBNull(1) Then
Session("UserDep") = ""
Else
Session("UserDep") = dr.Item(1)
End If

If dr.IsDBNull(2) Then
Session("UserCName") = ""
Else
Session("UserCName") = dr.Item(2)
End If

If dr.IsDBNull(3) Then
Session("UserEName") = ""
Else
Session("UserEName") = dr.Item(3)
End If

If dr.IsDBNull(4) Then
Session("UserEmail") = ""
Else
Session("UserEmail") = dr.Item(4)
End If

Page.Response.Redirect("WebForm2.aspx") 'WebForm2.aspx为主功能页面

Else
Session("UserID") = ""
Session("UserDep") = ""
Session("UserCName") = ""
Session("UserEName") = ""
Session("UserEmail") = ""

lblMsg.Text = "用户ID或用户密码输入错误!!请重新输入!!"
TextBox1.Text = ""
TextBox2.Text = ""
End If

myConn.Close()

End Sub

Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

End Class


-----------努力学习 不断实践 虚心讨教---------
xiaomaolover 2003-10-17
  • 打赏
  • 举报
 回复
j sql server 还是access？
rgbcn 2003-10-17
  • 打赏
  • 举报
 回复


还有一个地方错了，
SqlClient.SqlConnection 要改成 OleDb.OleDbConnection
guoyan19811021 2003-10-17
  • 打赏
  • 举报
 回复
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Tax.mdb
rgbcn 2003-10-17
  • 打赏
  • 举报
 回复
上面是c# 的

Imports System.Data
Imports System.Data.OleDb
Public cn As New SqlClient.SqlConnection
cn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data ource=BugTypes.MDB";
cn.Open()
rgbcn 2003-10-17
  • 打赏
  • 举报
 回复
using System;
using System.Data;
using System.Data.OleDb;//accees 用这个
string strAccessConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data ource=BugTypes.MDB";
wd_318 2003-10-17
  • 打赏
  • 举报
 回复
access :PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxx.mdb;

你这里好象连接SQL SERVER的呀！它的连接串是：
server=服务器名; user id=sa ; password=密码; Database=数据库名
SQL语法大全
1. ASP与Access数据库连接： dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;...
NetData_Server远程访问ACCESS
单机版中的连接字串符： 取消：CONN.OPEN "provider=Microsoft.jet.OLEDB.4.0;data source=D:\sys\data\data.mdb" 改成：NetDataClient1 .Start "192.168.0.1", "8080" 把CONN.Close 改成 NetDataClient1.Down ...
精通Access数据库零基础快速学习系列第4部
本课程为Access数据库知识系列课程第4部，课程目标：结合...本课程所使用的Access数据库文件格式为mdb格式，2003版本。 课程编排重在实用，讲解通俗易懂。 让您在较短的时间内学会需要的知识点，为您节省宝贵的时间。
VB NetData_Server 远程访问 ACCESS 控件及示例
单机版中的连接字串符： 取消：CONN.OPEN "provider=Microsoft.jet.OLEDB.4.0;data source=D:\sys\data\data.mdb" 改成：NetDataClient1 .Start "192.168.0.1", "8080" 把CONN.Close 改成 NetDataClient1.Down 其他...
VB NetData_Server 远程访问 ACCESS 1
单机版中的连接字串符： 取消：CONN.OPEN "provider=Microsoft.jet.OLEDB.4.0;data source=D:\sys\data\data.mdb" 改成：NetDataClient1 .Start "192.168.0.1", "8080" 把CONN.Close 改成 NetDataClient1.Down 其他...
.NET社区

62,046

社区成员

669,049

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章