sql server2012访问接口没有Microsoft.Jet.OLEDB4.0

图片说明
这是sql server2008
图片说明
这是sql server 2012

1.sql server2012没有这个访问接口导致我无法把EXCEL导入到数据库表中,怎么解决
2.或者有什么其他的接口也能通过VB6把EXCEL导入到数据库中?

3个回答

Microsoft.Jet.OLEDB4.0过时了,用ACE 12.0(上面那个)

这是要导报表? 用12.0吧 ACE那个
Microsoft.Office.Interop.Excel 添加这个引用就行

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
Microsoft.Jet.OLEDB.4.0 改成Microsoft.ACE.OLEDB.12.0

运行环境: windows 10 专业版 64位 。SQL2008 在sql2008新建数据库的时候提示“因为 OLE DB 访问接口 'Microsoft.Jet.OLEDB.4.0' 配置为在单线程单元模式下运行,所以该访问接口无法用于分布式查询” 电脑上已安装好了Microsoft.ACE.OLEDB.12.0 。现在就差把链接串口Microsoft.Jet.OLEDB.4.0 改成Microsoft.ACE.OLEDB.12.0。 问下如何如何把Microsoft.Jet.OLEDB.4.0 改成Microsoft.ACE.OLEDB.12.0? 跪求高手 大神 大牛 大虾 orz

"MICROSOFT.JET.OLEDB.4.0" 报错

目的:excel表导入sql server 执行语句:SELECT * INTO abcd FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;IMEX=2;DATABASE=d:\abc.xls',sheet1$) 报错信息:ADO Connection Execute.vi->SQL Execute.vi->sql历史数据查询功能.vi中的Exception occured in Microsoft OLE DB Provider for ODBC Drivers: [Microsoft][ODBC SQL Server Driver][SQL Server]链接服务器 "(null)" 的 OLE DB 访问接口 "MICROSOFT.JET.OLEDB.4.0" 报错。提供程序未给出有关错误的任何信息。 DB 访问 目的就是把整个excel表导入sql数据库中,执行sql语句功能不知是否有问题不确定,暂时无语法错误,唯一报错‘’[SQL Server]链接服务器 "(null)" 的 OLE DB 访问接口 "MICROSOFT.JET.OLEDB.4.0" 报错。提供程序未给出有关错误的任何信息。‘’无从解决!!! 请高手指导一下!!!

无法创建链接服务器“(null)”的 OLE DB 访问接口“Microsoft.Jet.OLEDB.4.0”的实例?

用asp.net做导入excel文件的时候,报这个错误. 环境是:server 2012r2 eng 64,sql 2016,office2010. 语句为 ``` SELECT jz,sy1,la,gw,code,wlmc,sl,cn FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source =C:\\Users\\Administrator\\Desktop\\导入\\TM\\master.xls;Extended properties=Excel 5.0')...[Sheet1$] ``` 网上找了一下方案,也总结了一下,大概是说环境不支持,需要将语句修改为Microsoft.ACE.OLEDB.12.0,并且安装Microsoft Access 2010 数据库引擎可再发行程序包 64位驱动.我在windows7 64位下可以安装,并且可以正常执行语句,但把access 2010引擎驱动放到服务器运行安装就没反应() 现在请求一下,应该怎么解决?

VC++ 6.0 如何连接Sql Server 或Access数据库

能给一些详细的代码么?多谢

sqlserver的表导入excel提示"找不到可安装的ISAM"”office是16的

``` private void InsertToExcel() { string strCon =“ Provider=Microsoft.ACE.OLEDB.12.0;Data Source="+strSaveFileName+";Extended Properties=Excel 12.0 xml;HDR=Yes;"; StringBuilder strbSql = new StringBuilder(); OleDbConnection oleDbCon = new OleDbConnection(strCon); OleDbCommand oleDbCom = new OleDbCommand(); oleDbCom.Connection = oleDbCon; oleDbCon.Open(); string strSql = "create table MySheet (队号 int, 队名 nchar(10), 队长 varchar(50), 老师 int,论文题目 nchar(10)) "; oleDbCom.CommandText = strSql; oleDbCom.ExecuteNonQuery(); for (int i = 0; i < dsSqlServer.Tables[0].Rows.Count; i++) { strbSql.Append("insert into [MySheet$] values('"); for (int j = 0; j < 3; j++) { strbSql.Append(dsSqlServer.Tables[0].Rows[i].ItemArray[j].ToString() + "','"); } strbSql.Append(dsSqlServer.Tables[0].Rows[i].ItemArray[3].ToString() + "')"); strSql = strbSql.ToString(); oleDbCom.CommandText = strSql; oleDbCom.ExecuteNonQuery(); strbSql.Remove(0, strbSql.Length); } ``` ![图片说明](https://img-ask.csdn.net/upload/202004/16/1586971607_858965.png) 注册Excel ISAM在“运行”对话框中:Regsvr32 C:\Windows\SysWOW64\msexcl40.dll 这个也注册成功了

VB6实现excel导入SQL SERVER7程序问题

Set cnn = New ADODB.Connection cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=labor;Data Source=RPC_004" cnn.CursorLocation = adUseClient Set RS = New ADODB.Recordset STR = "SELECT * FROM litem" RS.Open STR, cnn, adOpenKeyset, adLockOptimistic If RS.RecordCount > 0 Then RS.MoveFirst Do Until RS.EOF RS.Delete RS.MoveNext Loop End If Set RS = Nothing MsgBox "刪除完成" CommonDialog1.Filter = "文件(.xls)|*.xls" CommonDialog1.DialogTitle = "请选择要导入的文件" CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FILENAME STR1 = "INSERT INTO litem SELECT ITEM_NO,ITEM_NAME,ITEM_UNIT ... FROM OPENROWSET ('MICROSOFT.JET.OLEDB.4.0','Excel 8.0;HDR=YES;DATABASE=" & CommonDialog1.FILENAME & "',Sheet1$)" cnn.Execute STR1, , adExecuteNoRecords MsgBox "导入成功" 提示错误cnn.Execute STR1, , adExecuteNoRecords,信息“OLE DB provider ‘MICROSOFT.JET.OLEDB.4.0’ reported an error.The provider did not give any information about the error.” 复制 STR1到 SQL SERVER7中执行,可正常执行写入数据库。 不知是何原因?请各位老大帮忙,谢谢!

SQL Server 相同数据汇总问题

Adodc1.RecordSource = "select 位置,位置 from (select sum(数量) as 数量,位置 from SMT_DATA group by 位置)" 用MDB 数据库就可以,使用 SQL Server报")"附件原语法错误 以下是代码 还请各位大伽帮忙看看 谢谢 Private Sub Command1_Click() Adodc1.RecordSource = "select 位置,位置 from (select sum(数量) as 数量,位置 from SMT_DATA group by 位置)" 'MDB 数据库ok SQL Server报")"附件原语法错误 Adodc1.Refresh Set MSChart1.DataSource = Adodc1 End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db_medicine.mdb;Persist Security Info=False" 'MDB 数据库 Adodc1.ConnectionString = "Provider=SQLOLEDB;server=" & "192.168.0.220" & ";uid=sa;pwd=" & "6600" & ";Initial Catalog=PE" ' SQL Server End Sub

SQL2008测试: 通过SQL语句, 实现SQL数据库与EXCEL表的数据交换.

SQL2008测试: 通过SQL语句, 实现SQL数据库与EXCEL表的数据交换. 测试语句:SELECT * into table_1 FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\Finance\account.xls";User ID=sa;Password=Koimy1234;Extended properties=Excel 5.0')...xactions 消息提示: 消息 15281,级别 16,状态 1,第 1 行 SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT 'OpenRowset/OpenDatasource' 的访问,因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可以通过使用 sp_configure 启用 'Ad Hoc Distributed Queries'。有关启用 'Ad Hoc Distributed Queries' 的详细信息,请参阅 SQL Server 联机丛书中的 "外围应用配置器"。

access 数据库asp连接代码 该sql2005连接代码 怎么改?

以下是连接access数据库代码,如果要改成连接SQL数据库代码,应该怎么改? SQL2005数据库实例名:newdata 数据库用户名:sa 密码:888888 <% On Error Resume Next c_type=1 if c_type =1 then db="aaa/bbb.mdb"'这里修改数据库路径或名称 Set conn = Server.CreateObject("ADODB.Connection") Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open Connstr else ConnStr = "driver={SQL Server};server=.;uid=sa;pwd=;database=newdata" 'ConnStr = "Provider=SQLOLEDB.1;Password=888888;Persist Security Info=True;UserID=sa;Initial Catalog=9999;Data Source=127.0.0.1" Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr end if sub CloseConn() conn.close set conn=nothing end sub %>

外部数据库驱动程序中(1)的意外错误

win10秋季创意版更新之后 Provider=Microsoft.Jet.OLEDB.4.0;Data Source=;Extended Properties=""Excel 8.0;HDR=YES;IMEX=1

VB6.0连接数据库问题,运行错误3709。

Public Sub updata() Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS , cnn, adOpenKeyset, adLockOptimistic" (调试显示上面这个位置出错3709) re.MoveFirst Do While Not rs.EOF X11 = rs.Fields("X1") Y11 = rs.Fields("Y1") lx = rs.Fields("TYPE") Select Case lx Case 1 Call byq(X11, Y11, 1, 1, False) Case 2 Call dy(X11, Y11, 1, False) End Select Loop rs.Close End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim x1 As Integer Dim x2 As Integer Dim y1 As Integer Dim y2 As Integer If moveflag = ture Then Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset x1 = x2: y1 = y2 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS ", cnn, adOpenKeyset, adLockOptimistic xnow = rs.Fields("X1") ynow = rs.Fields("Y1") rs.Fields("X1") = xnow + x2 - x1 rs.Fields("Y1") = ynow + y2 - y1 x2 = X: y2 = Y rs.Update rs.Close Picture1.Cls Call updata End If End Sub

关于asp josn 接到参数 执行 sql语句 报错问题

<!--#include file="JSON_2.0.4.asp"--> <% Dim member Set member = jsObject() dim dbconnection,uplist,DBPath,SQL,Sort,Lbound,Ubound Dim id=request("jsoncallback") set dbconnection=Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("a.mdb") dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath '如果 SQL="select ContentID from Content where ContentID=247"这么写 就能执行 '如果 SQL="select ContentID from Content where ContentID="&id 就出错,页面显示 语法错误,但是我 单独 访问 这个 asp 能运行 不报错 SQL="select ContentID from Content where ContentID=247" SET uplist=dbconnection.EXECUTE(SQL) member("code") = ""&uplist(0)&"" member("errmsg") = "\u5bf9\u8c61ID\u4e0d\u5408\u6cd5" response.write request.querystring("jsoncallback")&"("&member.jsString&")" Set member = Nothing %> 问题: '如果 SQL="select ContentID from Content where ContentID=247"这么写 就能执行,json 接收正常 '如果 SQL="select ContentID from Content where ContentID="&id 就出错,页面显示 语法错误,但是我 单独 访问 这个 asp 能运行 不报错 这里 sql 我要 获取动态 数值 请 高手帮助 解决下,我实在是 不知道是哪问题了

[求助] ACCESS数据库里数字与文本的关系求助

一个匪夷所思的问题 若把数据据库中danganbianhao字段设置成数字型这个检测是否重复的代码就一致提示无重复但是的确有重复的 只要把这个字段设置成文本格式立马就能检测到重复这是为什么啊 求大神指点并更正。谢谢 代码如下: <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache"on error resume next db_path = "data/FireWeb_Right.mdb" Set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path) conn.Open connstrFunction CloseDatabase Conn.close Set conn = Nothing End Functionnum=request.querystring("num") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from list where danganbianhao='"&num&"'" rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.write("没有重复") else response.write("<img src=images/err.gif border=0> 发现重复") end if rs.close set rs=nothing call CloseDatabase %>

VB6.0不同的form连接统一个数据库的问题,请大神解决。

错误为子程序或函数中的属性无效 form1中: Public j As Integer Private Sub Form1_Load() Public cnn As New ADODB.Connection Public rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "E\VB工程\access\tycs.MDB" rs.Open "select * from YJCS", cnn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs MSHFlexGrid.colWidth(0) = 100 'i = 1 '第一个原件编号 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) xnow = X: ynow = Y If moveflag = True Then Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS where 编号=" & j, cnn, adOpenKeyset, adLockOptimistic xnow = rs.Fields("X1") ynow = rs.Fields("Y1") 'xz = rs.Fields("XZFLAG") x2 = X: y2 = Y rs.Fields("X1") = xnow + x2 - x1 rs.Fields("Y1") = ynow + y2 - y1 'If xz = False Then rs.Fields("XLEFT") = xnow + x2 - x1 rs.Fields("YLEFT") = ynow + y2 - y1 - 100 rs.Fields("YRIGHT") = ynow + y2 - y1 + 100 rs.Fields("XRIGHT") = xnow + x2 - x1 + 1300 'Else 'rs.Fields("XLEFT") = xnow + x2 - x1 - 100 ' rs.Fields("YLEFT") = ynow + y2 - y1 ' rs.Fields("YRIGHT") = ynow + y2 - y1 + 1300 'rs.Fields("XRIGHT") = xnow + x2 - x1 + 100 'End If x1 = x2: y1 = y2 rs.Update rs.Close Picture1.Cls Call updata End If End Sub form2中 Public j As Integer Private Sub Command1_Click() Public cnn As New ADODB.Connection(调试错误指示位置) Public rs As New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\access\tycs.mdb" rs.Open "select * from YJCS where 编号=" & j, cnn, adOpenKeyset, adLockOptimistic If rs.EOF = False Then rs.Fields("额定容量") = Form2.Text1.Text rs.Fields("额定频率") = Form2.Text2.Text rs.Fields("高压侧电压") = Form2.Text3.Text rs.Fields("低压侧电压") = Form2.Text4.Text rs.Fields("一次额定电流") = Form2.Text5.Text rs.Fields("二次额定电流") = Form2.Text6.Text rs.Fields("名称") = Form2.Text7.Text rs.Fields("二次额定电流") = Form2.Text8.Text rs.Fields("空载损耗") = Form2.Text11.Text rs.Fields("短路电压百分比") = Form2.Text12.Text rs.Fields("短路损耗") = Form2.Text13.Text rs.Fields("空载电流百分比") = Form2.Text14.Text rs.Fields("额定容量") = Form2.Text1.Text rs.Update rs.Close End Sub

缺少更新或刷新的键列信息

Private Sub Command2_Click() DataGrid2.Visible = False Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim r As New ADODB.Recordset conn.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\trainTime.mdb;persist security info = false" If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Calendar1.Value = "" Then MsgBox "请输入完整的信息" GoTo m Else sq = "select * from [Ticket],[Train] where Ticket.tno = Train.tno and Ticket.tno = '" & Text1.Text & "' and Fsta = '" & Text2.Text & "' and Lsta = '" & Text3.Text & "' and Dtime= #" & Calendar1.Value & "#" rs.Open sq, conn, 1, 2 If rs.RecordCount = 0 Then MsgBox " 无此车票" GoTo m rs.Close Else rs.Close sql = "select Train.tno as 车次号,Dtime as 出发日期,Cnum as 座位数量,LastTicket as 剩余票数 from [Ticket],[Train] where Ticket.tno = Train.tno and Ticket.tno = '" & Text1.Text & "' and Fsta = '" & Text2.Text & "' and Lsta = '" & Text3.Text & "' and Dtime= #" & Calendar1.Value & "#" rs.CursorLocation = adUseClient rs.Open sql, conn, 1, 2 Set DataGrid1.DataSource = rs DataGrid1.Refresh DataGrid1.Visible = True a = MsgBox("确定购买?", 35, "确认") If a = vbYes Then If rs!剩余票数 < 1 Then MsgBox "此票已售完" Else sql = "select * from purchase" r.Open sql, conn, 1, 2 r.AddNew r!tno = rs!车次号 r!Dtime = rs!出发日期 rs!剩余票数 = rs!剩余票数 - 1 r!Seat = rs!座位数量 - rs!剩余票数 rs.Update r.Update End If End If End If End If m: End Sub Private Sub Command3_Click() DataGrid1.Visible = False DataGrid2.Visible = False End Sub Private Sub Command4_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str As String conn.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\trainTime.mdb;persist security info = false" sql = "select Train.tno as 车次号,Dtime as 出发日期,Ccondition as 有无空调,Fsta as 起始站,Lsta as 终点站,Ftime as 出发时间,Ltime as 到达时间,LastTicket as 剩余票数,Price as 价格 from [Train],[Ticket] where Train.tno= Ticket.tno and Fsta like'%" & Text2.Text & "%' and Lsta like '%" & Text3.Text & "%' and Train.tno like '%" & Text1.Text & "%' and Ttype is not null and Ctype is not null and Ccondition is not null and Fsta is not null and Lsta is not null and Ftime is not null and Ltime is not null and Price is not null and Dtime = #" & Calendar1.Value & "#" rs.CursorLocation = adUseClient rs.Open sql, conn, 3, 3 Set DataGrid2.DataSource = rs DataGrid2.Refresh DataGrid2.Visible = True End Sub Private Sub Form_Load() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\trainTime.mdb;persist security info = false" Dim dd As Date dd = Date sql = "select*from [Ticket] where Dtime <#" & dd & "#" rs.Open sql, conn, 1, 2 If rs.RecordCount = 0 Then rs.Close GoTo m Else rs.Close sql = "select* from [Ticket]" rs.Open sql, conn, 1, 2 rs.MoveLast While Not rs.BOF rs!Dtime = rs!Dtime + 1 rs.MovePrevious Wend End If rs.Close sql = "select*from [Purchase] where Dtime<#" & dd & "#" rs.Open sql, conn, 1, 2 If rs.RecordCount = 0 Then rs.Close GoTo m Else rs.Delete rs.Update End If m: End Sub 运行起来出现了上述缺少更新或刷新的键列信息,主键没有问题,请问大神们怎么修改?

跪求各位大神帮我看看哪错了吧

基于asp.net开发的,数据库是sql server2005.无法将信息添加到数据库中。 添加按钮click事件代码如下: protected void Button1_Click(object sender, EventArgs e) { string sql; sql = "insert into shipinxinxi(mingcheng,leibie,danjia) values('"+mingcheng.Text.ToString().Trim() + "','"+leibie.Text.ToString().Trim() + "','"+danjia.Text.ToString().Trim() + "') "; int result; result = new Class1().hsgexucute(sql); if (result == 1) { Response.Write("<script>javascript:alert('添加成功');</script>"); } else { Response.Write("<script>javascript:alert('系统错误,请检查数据库设置问题');</script>"); } } Class1.cs中代码如下: using System; using System.Data; //using System.Data.OleDb; using System.Data.SqlClient; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; /// <summary> /// Class1 的摘要说明 /// </summary> public class Class1 { //SqlConnection myConnection = new SqlConnection(ConfigurationSettings.AppSettings["testConnectionString"]); public Class1() { // // TODO: 在此处添加构造函数逻辑 // } // public static string connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Web.HttpContext.Current.Server.MapPath("~/App_Data/web.mdb"); public static string connstring = ConfigurationManager.AppSettings["cn"]; //设置连接数据库的代码是webconfig里面的cn那句,即:server=.;database=net05qingongzhuxue;uid=sa;pwd=; public static DataSet GDS(string sql) { //OleDbDataAdapter dap = new OleDbDataAdapter(sql, connstring); SqlDataAdapter dap = new SqlDataAdapter(sql, connstring); DataSet ds = new DataSet(); dap.Fill(ds); return ds; } public static void Dsql(string sql) { // OleDbConnection conn = new OleDbConnection(); SqlConnection conn = new SqlConnection(); conn.ConnectionString = connstring; conn.Open(); // OleDbCommand cmd = new OleDbCommand(sql, conn); SqlCommand cmd = new SqlCommand(sql, conn); cmd.ExecuteNonQuery(); conn.Close(); } public int hsgexucute(string sql) //自定义函数:执行sql语句,如果执行成功,返回值1,否则0 { //myConnection.Open(); SqlConnection conn = new SqlConnection(); //定义新数据库连接 conn.ConnectionString = connstring; //设置该新连接字符串是connstr,即上面的webconfig里的cn值 SqlCommand myCommand = new SqlCommand(sql, conn); //设置新执行命令 // SqlCommand cmd = new SqlCommand(sql, conn); try { conn.Open(); //打开数据库连接 myCommand.ExecuteNonQuery(); //执行sql语句 return 1; //执行成功,返回1 } catch { //Console.WriteLine("SqlException:{0}",SQLexc); return 0; //执行失败,返回0 } finally { conn.Close(); //关闭数据库连接 } } 每次点击添加按钮,就会弹出提示框显示'系统错误,请检查数据库设置问题',这是怎么回事呢?

为什么我用dataset里的数据更新到数据库显示插入语句错误

String mycnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(" App_Data/员工信息表2.mdb"); OleDbConnection myconnection = new OleDbConnection(mycnstr);//连接数据库 myconnection.Open();//打开数据库 string yyy = " select * from 表1"; OleDbDataAdapter da = new OleDbDataAdapter(yyy, myconnection ); OleDbCommandBuilder cb = new OleDbCommandBuilder(da); DataSet ds = new DataSet(); da.Fill(ds, "表1"); DataTable tb = ds.Tables["表1"]; tb.PrimaryKey = new DataColumn[] { tb.Columns ["login"]}; DataRow dr = ds.Tables["表1"].NewRow(); dr["login"] = TextBox1 .Text ; dr["name"] = TextBox2 .Text ; dr["gender"] = TextBox3.Text; dr["age"] = TextBox4.Text; dr["password"] = TextBox5.Text; dr["occupy"] = TextBox6.Text; dr["category"] = TextBox7.Text; ds.Tables["表1"].Rows.Add(dr);//上面全是各个字段赋值 da.Update(ds,"表1");

出现 ADODB.Recordset 错误 '800a0bb9'参数类型不正确

index <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% set rs=server.createobject("adodb.recordset") sql="select user,qq,email,content,data from main order by id desc" rs.open sql,conn,1,1 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>无标题文档</title> </head> <body> <table width="628" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="2"><%=rs("user")%> 留言于<%=rs("data")%></td> <td width="102">&nbsp;</td> <td width="65">QQ 邮件</td> </tr> <tr> <td width="53">内容:</td> <td width="408" colspan="3" rowspan="2"><%=rs("content")%></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td colspan="2">&nbsp;</td> <td>填写留言</td> <td>管理留言</td> </tr> </table> </body> </html> conn <% set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb") conn.open connstr %>

vb.net 业务下单管理 使用System.Data.DataTable

我要使用System.Data.DataTable(不使用datagridview) 目的为管理每一个人员的下单情况 黄色和蓝色业绩的栏位,为已经载入的数据 我要计算出 1、连续不下单月份数 2、连续3/6个月不下单 3、连续下单月份数 4、连续3/6个月下单 把这些带有数值的文字塞到灰色及红色的栏位 请问要怎么做呢,这些数据的处理已经和用SQL是没有关系的,直接在ystem.Data.DataTable来计算 谢谢 ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555221572_131744.jpg) 业绩的部分,是用动态产生的,其整个代码如下 ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555223493_352685.jpg) Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim cn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\data.mdb;Persist Security Info=True" cn = New OleDbConnection(cnStr) Dim sql As String = "select * from mytable" da = New OleDbDataAdapter(sql, cn) ds = New DataSet da.Fill(ds, "Server") DataGridView1.DataSource = ds.Tables("Server") cn.Close() cn.Dispose() ds.Dispose() da.Dispose() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim C_list As String = "2018/9,2018/10,2018/11,2018/12,2019/1,2019/2" Dim insert_index As Integer = 5 Dim tmp_table As New DataTable tmp_table = DataGridView1.DataSource DataGridView1.DataSource = Nothing '必须要释放,不然位置不准确 DataGridView1.DataSource = Insert_Columns(C_list, tmp_table, 5) End Sub Function Insert_Columns(ByVal items As String, ByVal DT As DataTable, ByVal index As Integer) As DataTable Dim New_table As New DataTable New_table = DT Dim a() As String a = Split(items, ",") For i = 0 To UBound(a) New_table.Columns.Add(a(i)).SetOrdinal(index + i) Next Return New_table End Function End Class 其数据库及form为 ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555223527_28603.jpg) ![图片说明](https://img-ask.csdn.net/upload/201904/14/1555223567_813866.jpg)

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

我以为我学懂了数据结构,直到看了这个导图才发现,我错了

数据结构与算法思维导图

String s = new String(" a ") 到底产生几个对象?

老生常谈的一个梗,到2020了还在争论,你们一天天的,哎哎哎,我不是针对你一个,我是说在座的各位都是人才! 上图红色的这3个箭头,对于通过new产生一个字符串(”宜春”)时,会先去常量池中查找是否已经有了”宜春”对象,如果没有则在常量池中创建一个此字符串对象,然后堆中再创建一个常量池中此”宜春”对象的拷贝对象。 也就是说准确答案是产生了一个或两个对象,如果常量池中原来没有 ”宜春” ,就是两个。...

技术大佬:我去,你写的 switch 语句也太老土了吧

昨天早上通过远程的方式 review 了两名新来同事的代码,大部分代码都写得很漂亮,严谨的同时注释也很到位,这令我非常满意。但当我看到他们当中有一个人写的 switch 语句时,还是忍不住破口大骂:“我擦,小王,你丫写的 switch 语句也太老土了吧!” 来看看小王写的代码吧,看完不要骂我装逼啊。 private static String createPlayer(PlayerTypes p...

Linux面试题(2020最新版)

文章目录Linux 概述什么是LinuxUnix和Linux有什么区别?什么是 Linux 内核?Linux的基本组件是什么?Linux 的体系结构BASH和DOS之间的基本区别是什么?Linux 开机启动过程?Linux系统缺省的运行级别?Linux 使用的进程间通信方式?Linux 有哪些系统日志文件?Linux系统安装多个桌面环境有帮助吗?什么是交换空间?什么是root帐户什么是LILO?什...

将一个接口响应时间从2s优化到 200ms以内的一个案例

一、背景 在开发联调阶段发现一个接口的响应时间特别长,经常超时,囧… 本文讲讲是如何定位到性能瓶颈以及修改的思路,将该接口从 2 s 左右优化到 200ms 以内 。 二、步骤 2.1 定位 定位性能瓶颈有两个思路,一个是通过工具去监控,一个是通过经验去猜想。 2.1.1 工具监控 就工具而言,推荐使用 arthas ,用到的是 trace 命令 具体安装步骤很简单,大家自行研究。 我的使用步骤是...

学历低,无法胜任工作,大佬告诉你应该怎么做

微信上收到一位读者小涛的留言,大致的意思是自己只有高中学历,经过培训后找到了一份工作,但很难胜任,考虑要不要辞职找一份他能力可以胜任的实习工作。下面是他留言的一部分内容: 二哥,我是 2016 年高中毕业的,考上了大学但没去成,主要是因为当时家里经济条件不太允许。 打工了三年后想学一门技术,就去培训了。培训的学校比较垃圾,现在非常后悔没去正规一点的机构培训。 去年 11 月份来北京找到了一份工...

JVM内存结构和Java内存模型别再傻傻分不清了

JVM内存结构和Java内存模型都是面试的热点问题,名字看感觉都差不多,网上有些博客也都把这两个概念混着用,实际上他们之间差别还是挺大的。 通俗点说,JVM内存结构是与JVM的内部存储结构相关,而Java内存模型是与多线程编程相关,本文针对这两个总是被混用的概念展开讲解。 JVM内存结构 JVM构成 说到JVM内存结构,就不会只是说内存结构的5个分区,而是会延展到整个JVM相关的问题,所以先了解下

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

Google 与微软的浏览器之争

浏览器再现“神仙打架”。整理 | 屠敏头图 | CSDN 下载自东方 IC出品 | CSDN(ID:CSDNnews)从 IE 到 Chrome,再从 Chrome 到 Edge,微软与...

讲一个程序员如何副业月赚三万的真实故事

loonggg读完需要3分钟速读仅需 1 分钟大家好,我是你们的校长。我之前讲过,这年头,只要肯动脑,肯行动,程序员凭借自己的技术,赚钱的方式还是有很多种的。仅仅靠在公司出卖自己的劳动时...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

搜狗输入法也在挑战国人的智商!

故事总是一个接着一个到来...上周写完《鲁大师已经彻底沦为一款垃圾流氓软件!》这篇文章之后,鲁大师的市场工作人员就找到了我,希望把这篇文章删除掉。经过一番沟通我先把这篇文章从公号中删除了...

85后蒋凡:28岁实现财务自由、34岁成为阿里万亿电商帝国双掌门,他的人生底层逻辑是什么?...

蒋凡是何许人也? 2017年12月27日,在入职4年时间里,蒋凡开挂般坐上了淘宝总裁位置。 为此,时任阿里CEO张勇在任命书中力赞: 蒋凡加入阿里,始终保持创业者的冲劲,有敏锐的...

总结了 150 余个神奇网站,你不来瞅瞅吗?

原博客再更新,可能就没了,之后将持续更新本篇博客。

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

MySQL数据库面试题(2020最新版)

文章目录数据库基础知识为什么要使用数据库什么是SQL?什么是MySQL?数据库三大范式是什么mysql有关权限的表都有哪几个MySQL的binlog有有几种录入格式?分别有什么区别?数据类型mysql有哪些数据类型引擎MySQL存储引擎MyISAM与InnoDB区别MyISAM索引与InnoDB索引的区别?InnoDB引擎的4大特性存储引擎选择索引什么是索引?索引有哪些优缺点?索引使用场景(重点)...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

男生更看重女生的身材脸蛋,还是思想?

往往,我们看不进去大段大段的逻辑。深刻的哲理,往往短而精悍,一阵见血。问:产品经理挺漂亮的,有点心动,但不知道合不合得来。男生更看重女生的身材脸蛋,还是...

什么时候跳槽,为什么离职,你想好了么?

都是出来打工的,多为自己着想

程序员为什么千万不要瞎努力?

本文作者用对比非常鲜明的两个开发团队的故事,讲解了敏捷开发之道 —— 如果你的团队缺乏统一标准的环境,那么即使勤劳努力,不仅会极其耗时而且成果甚微,使用...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

终于懂了TCP和UDP协议区别

终于懂了TCP和UDP协议区别

立即提问
相关内容推荐