VB.NET连接access数据库文件的问题!(请根据详细描述回答!)

发布网友 发布时间：2022-04-11 21:39

我来回答

共4个回答

热心网友 时间：2022-04-11 23:09

工具-连接到数据库 是根据数据库的类型自动创建连接的 Provider=Microsoft.Jet.OLEDB.4.0是access数据库的专有连接

oledbdataAdapter的新建连接可以适用于多种数据库所以Provider不一样,默认是连接SQL的,SQLNCLI.1是连接SQL数据库的Provider,因为连接数据库的连接字符串是错误的所以连接失败

热心网友 时间：2022-04-12 00:27

string strConn;
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;";
strConn += "Data Source=";
strConn += Server.MapPath(".\\upExcel\\").ToString();

strConn += this.lblf.Text.ToString();
strConn += ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);

string strSQL = "SELECT * FROM [Sheet1$] ";
OleDbCommand comm = new OleDbCommand(strSQL,conn);
conn.Open();

OleDbDataReader dr = comm.ExecuteReader();

string strSQLcmd = "";
string deleSQL = "";
OracleConnection sqlconn = new OracleConnection("server=192.168.2.99;data source=Commercial;uid=Commercial;pwd=hdwy1973");
sqlconn.Open();
#endregion
#region 批量导入
int i = 0;
int j = 1;
DataSet myds = new DataSet();
while (dr.Read())
{

//更新数据

i += j;
int num1 = num + i;
OracleCommand SQLcom = new OracleCommand(deleSQL,sqlconn);
SQLcom.ExecuteNonQuery();

strSQLcmd = "INSERT INTO ";
OracleCommand SQLcomm = new OracleCommand(strSQLcmd, sqlconn);
SQLcomm.ExecuteNonQuery();

string trsql = "select * from TL_SCHOOL2 where ID='" + num1 + "'";
OracleDataAdapter myda = new OracleDataAdapter(trsql, sqlconn);
myda.Fill(myds, "TL_SCHOOL2");
}
GridView1.DataSource = myds;
GridView1.DataBind();

conn.Close();
sqlconn.Close();

热心网友 时间：2022-04-12 02:01

'就这么连接，很简单的

Public con As ADODB.Connection, Str As String, Adodc As ADODB.Recordset, sql As String

Public Sub Ado_Open()
con = New ADODB.Connection
Str = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & System.IO.Directory.GetCurrentDirectory & "\Finance.mdb;pwd=;ReadOnly=False"
con.Open(Str)
End Sub

Public Sub NewAdo()
Adodc = New ADODB.Recordset
Adodc.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Adodc.Open(sql, con, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockBatchOptimistic)
End Sub

public sub commandbutton1()
ado_open
sql="select * from user"
newado
textbox1=adodc.fields(0)
end sub

热心网友 时间：2022-04-12 03:53

你的VS2005有问题