vb6.0如何实现与数据库的连接?

用VB做了一个程序,在登录基本信息这一界面的时候要把信息保存在数据库里

1个回答

好几年前写过VB6.0的代码,回头给你找找

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
VB6.0与新浪云sae服务器连接
我们在新浪云sae上面建立了数据库。我想本地用vb6.0读取数据库上面的文本文件,然后本地计算,计算完毕后将结果上传到新浪云sae服务器上。
VB6.0使用ADO对象模型访问数据库,怎么读取sql数据
问题:VB6.0使用ADO对象模型访问数据库,怎么读取sql数据 **需求 :我想把sql数据显示在文本框里面,点击命令按钮才出现** Private Sub Command1_Click() Dim mycon As New ADODB.Connection '1,使用Dim语句创建一个Connection对象 '2,使用sql 用户名和密码连接数据库 mycon.ConnectionString = "Driver={SQL Server};Server=(local);User ID=sa;pwd=*******.;Database=Library" '3,用Connection对象的Open方法打开 与数据库的连接 mycon.Open '4,执行sql '4.1 (执行查询的操作) Dim myrs As New ADODB.Recordset Set myrs = mycon.Execute("select * from book") '5,关闭sql连接 mycon.Close '6,释放或删除sql连接 Set mycon = Nothing End Sub
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
VB6.0连接SQL 2008 R2数据库时遇到问题,求解决
我从网上下载了,VB的学生档案管理系统,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553763685_937980.png)在还原了附带的spl数据库后,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553764975_9313.png) 运行VB系统一直描述数据库连接失败。![图片说明](https://img-ask.csdn.net/upload/201903/28/1553765288_326162.png)以及这是系统报的调整的地方,![图片说明](https://img-ask.csdn.net/upload/201903/28/1553765837_238351.png)这是书上连接的呢一部分的代码![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766077_325724.png) 1. 1. ![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766481_230131.png)![图片说明](https://img-ask.csdn.net/upload/201903/28/1553766488_576457.png),求大神帮帮忙,还需要哪里的截图我会尽快回复!谢谢了!
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
VB6.0和mysql进行C/S编程的报错,请大神指教
我用vb写了一个客户端,在一台机器安装了mysql,vb编译客户端以后,布置到5台相同的机器上去,机器都是相同的配置都是win7 32位系统,通过安装mysql odbc driver与服务器连接。其中四台完全正常,只有一台每次通过编译的程序连接数据库时,都会报错,提示"%1不是有效的win32程序"。然而在这台有问题的机器上使用navicat for mysql则可以正常连接数据库,在控制面板 odbc里也可以自己设置mysql odbc driver使其连接到数据库。 请教这种问题怎么解决,已经尝试过两个不同的mysql odbc driver,关键问题是完全相同的系统完全相同的软件,在别的机器上就没有问题。 连接语句: strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=" & db_host & ";" & _ "DATABASE=" & db_data & ";" & _ "UID=" & db_user & ";PWD=" & db_pass & ";" & _ "OPTION=3;port=" & db_port & ";stmt=SET NAMES utf8"
VB6.0中当操作Word(以docx结尾的)时候会出现实时错误‘4198’
Private Sub Command2_Click() Dim i As Integer Dim j As Integer j = 0 For i = 1 To File1.ListCount j = j + 1 Dim myword_1 As New Word.Application Dim doc1 As New Word.Document Dim lujing As String Set myword_1 = CreateObject("word.application") myword_1.Visible = False lujing = File1.Path + "\" + File1.List(j - 1) Set doc1 = myword_1.Documents.Open(lujing) '注:如果其中有以docx结尾的就会出错。 Dim st_1 As String Dim st_2 As String Dim st_3 As String Dim Sid As String Dim Sname As String Dim SnameWithDot As String Dim length As Integer Dim dot As Integer Dim title As String Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String '提取实验报告中的第一个表格中的内容 st_1 = doc1.Tables(1).Cell(4, 1).Range.Text st_2 = doc1.Tables(1).Cell(5, 1).Range.Text st_3 = doc1.Tables(1).Cell(6, 1).Range.Text '连接数据库 Sid = Mid(File1.List(j - 1), 1, 15) title = Mid(File1.List(j - 1), 16, 3) SnameWithDot = Mid(File1.List(j - 1), 19) length = Len(SnameWithDot) dot = InStr(SnameWithDot, ".") Sname = Mid(SnameWithDot, 1, dot - 1) txtSQL = "" txtSQL = "select * from Labor where id='" & Trim(Sid) & "' " Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then mrc.AddNew mrc.Fields(0).Value = Sid mrc.Fields(1).Value = title mrc.Fields(2).Value = Left(st_1, Len(st_1) - 1) ' Left(st_1, Len(st_1) - 1)联系上文的st_1 = doc1.Tables(1).Cell(4, 1).Range.Text就是提取的实验内容里的内容 mrc.Fields(3).Value = Left(st_2, Len(st_2) - 1) mrc.Fields(4).Value = Left(st_3, Len(st_3) - 1) mrc.Fields(5).Value = Sname mrc.Update mrc.Close Text1.Text = Text1.Text + File1.List(j - 1) + "记录添加成功!" + vbCrLf Else Text1.Text = Text1.Text + File1.List(j - 1) + "记录之前已添加!" + vbCrLf End If doc1.Close myword_1.Quit Next i MsgBox "记录添加完成!" End Sub
淘宝的网页字串转换(使用vb.net)
我爬下来的连接为 https://click.simba.taobao.com/cc_im?p=%BD%E0%C3%E6%D2%C7&s=1194321786&k=601&e=jvjI4EucITTy2F9WXZO1I0NqmvN1wXwCscz8ul%2BxbG%2FMLhlrKVZB9BBSfnEkGxnU%2B7%2BMrLVOjqKKMLgAzHSGGa26WjHr%2FnFJyg0q926rcH80l%2FhbVnCwEwnYP2zn3HfPwKamR0HoW7o%2BHdtOZxkWWEfElWhLjYznb991nFlfKsviyI844G77%2FTCepvSN4m5M49movUIeQT91F7BtIXjA7xjT3nbRS1t%2FtHOltJSErF8yXu6czxAfqhVAjQkV8pb6qBlDIqlOrjtHrrTmhV52Q24VjWNeDNd1HmQLuKmFSF7fo1peDgPl81alOdKJbqXjjJO%2BgtCS%2BZb2NP6d%2BY023iTlB1tdkBA82jJznyZckCxhRzgFEUwNEEYL%2BlAjltm7IMOd0bPI39mpd4f471dlrR0MzJSlZA1PsHw9hwgf3VAz2hImJhBKx564LE2qED1qzIrlmKH5L5F6Md8essnvuhqxKCL1NiH8JeBx%2B4%2B5VDuKhmz21CoLgfGbUT%2FUgX7mBz37eWaHSrgobrvEiU5noMsOR8KkTI7PBnCzv3GErv51G20dkyK%2BPVX0%2BYnrahA3%2FltRG3IlK0%2Br65T%2BlJyESQ%3D%3D#detail ----------------------------------------------------------------------- 我将上次的字串贴到browser后,会自动变成以下的字串 https://item.taobao.com/item.htm?id=558075412162&ali_refid=a3_430585_1006:1105386866:N:%E6%B4%81%E9%9D%A2%E4%BB%AA:3d8ac7bb296003678ea505df29f07c68&ali_trackid=1_3d8ac7bb296003678ea505df29f07c68#detail 我目的是要取得ID值"558075412162" 这个,因为原始的字串,没有这个ID 我要复制到browser才能取得ID,请问我使用vb.net怎么从原始数据取得ID值呢 初始的字串都是存在数据库里的,然后我再将其读到vb.net里
VB还原数据库,无法重写MDF文件
最近在编写VB还原数控据SQL2000的程序,是利用别人的代码,提示错误如图片所示,主要代码如下,求大神解决问题!谢谢! If Text1.Text = "" Then MsgBox "请选择要恢复的数据文件!", vbInformation, "提示" Exit Sub Else ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复,您确定要进行恢复操作吗?", vbQuestion + vbOKCancel, "提示") If ret = vbOK Then Dim cn As New ADODB.Connection Dim sn As New ADODB.Recordset Dim s_restore As String Me.MousePointer = 11 cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & "" sn.Open "select spid from sysprocesses where dbid=db_id('" & Me.Combo1.Text & "')", cn Do While Not sn.EOF cn.Execute "kill " & sn("spid") sn.MoveNext Loop sn.Close s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "' with REPLACE" cn.Execute s_restore 'Debug.Print gs_conn_string '此时需要连接master数据库才能完成数据恢复操作 '同上student1为需要恢复的数据库 s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "'" 'text1一个用于记录需要恢复文件的地址的textbox cn.Execute s_restore cn.BeginTrans If Err.Number = 0 Then cn.CommitTrans MsgBox "数据恢复成功!", vbInformation, "提示" Command1.Enabled = True Label1.Visible = False Else cn.RollbackTrans MsgBox "数据恢复失败!", vbCritical, "提示" Command1.Enabled = True End If cn.Close Set cn = Nothing Me.MousePointer = 1 Else Exit Sub End If ''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Dim DBC As New Connection If db.State = 1 Then db.Close End If db.ConnectionString = DBC.SqlConnectString(d1, d2, d3) rs.CursorType = adOpenDynamic rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic db.CursorLocation = adUseClient db.Open Set cmd.ActiveConnection = db If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If db.DefaultDatabase = " & Me.Combo1.Text & " If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If End If ![图片说明](https://img-ask.csdn.net/upload/201503/05/1425521981_39369.jpg) ![图片说明](https://img-ask.csdn.net/upload/201503/05/1425521998_895432.jpg) ![图片说明](https://img-ask.csdn.net/upload/201503/05/1425522012_566427.jpg)
求助下关于VB6连接SQL Sever 2008数据库的问题
Private Sub Borrow_Click() '单击“借书”按钮 Dim Readernumber, ISBN, BookID As String Dim in_ReaderID, in_ISBN, in_BookID, out_str '储存过程执行的参数 Dim ReturnValue As Integer '定义返回值变量 Dim Strs As String Readernumber = ReaderID.Text ISBN = T_ISBN.Text BookID = T_BookID.Text '如果借书证号、ISBN、图书ID均不为空 If Readernumber <> "" And ISBN <> "" And BookID <> "" Then SqlCmd.CommandText = "Book_Borrow" SqlCmd.CommandType = adCmdStoredProc '追加参数法调用存储过程 Set in_ReaderID = SqlCmd.CreateParameter("@in_ReaderID", adChar, adParamInput, 8) SqlCmd.Parameters.Append (in_ReaderID) Set in_ISBN = SqlCmd.CreateParameter("@in_ISBN", adChar, adParamInput, 18) SqlCmd.Parameters.Append (in_ISBN) Set in_BookID = SqlCmd.CreateParameter("@in_BookID", adChar, adParamInput, 10) SqlCmd.Parameters.Append (in_BookID) Set out_str = SqlCmd.CreateParameter("@out_str", adChar, adParamInput, 30) SqlCmd.Parameters.Append (out_str) '参数赋值 SqlCmd("@in_ReaderID") = ReaderID.Text SqlCmd("@in_ISBN") = T_ISBN.Text SqlCmd("@in_BookID") = T_BookID.Text SqlCmd.Execute (ReturnValue) '执行存储过程,并将返回值赋给ReturnValue Strs = SqlCmd.Parameters("@out_str") '将存储过程输出参数的值赋给变量Strs MsgBox (Strs) '给出提示信息 '删除参数 SqlCmd.Parameters.delete ("@in_ReaderID") SqlCmd.Parameters.delete ("@in_ISBN") SqlCmd.Parameters.delete ("@in_BookID") SqlCmd.Parameters.delete ("@out_str") '刷新BorrowADO控件 BorrowADO.RecordSource = "SELECT * FROM RBL WHERE 借书证号='" + Trim(Readernumber) + "'" BorrowADO.Refresh Else MsgBox ("请输入正确的借书信息!") End If End Sub 数据库已经设置好,Book_Borrow存储过程也设置好了,在SQL中执行未出错 代码中 SqlCmd.Execute (ReturnValue) '执行存储过程,并将返回值赋给ReturnValue 这一行出错 实时错误'-2147217904 (80040e10)' 过程或函数'Book_Borrow'需要参数'@out_str',但未提供该参数 希望有高手可以帮我查查错,感谢 附上SQL里的设置 USE MBOOK GO CREATE PROCEDURE Book_Borrow @in_ReaderID char(6),@in_ISBN char(18), @in_BookID char(10),@out_str char(30) OUTPUT AS BEGIN /*判断是否存在该读者*/ IF NOT EXISTS(SELECT * FROM TReader WHERE 借书证号=@in_ReaderID) BEGIN SET @out_str='该读者不存在' RETURN 0 END /*判断是否存在该图书*/ IF NOT EXISTS(SELECT * FROM TBook WHERE ISBN=@in_ISBN) BEGIN SET @out_str='该图书不存在' RETURN 0 END /*判断借书量是否已经到了借书上限数5*/ IF(SELECT 借书量 FROM TReader WHERE 借书证号=@in_ReaderID)=5 BEGIN SET @out_str='读者借书量不能大于5' RETURN 0 END /*判断库存量是否为0*/ IF (SELECT 库存量 FROM TBook WHERE ISBN=@in_ISBN)=0 BEGIN SET @out_str='图书库存量为0' RETURN 0 END /*判断读者是否已经借过该书*/ IF @in_ISBN IN (SELECT ISBN FROM TLend WHERE 借书证号=@in_BookID) BEGIN SET @out_str='读者已经借过该书' RETURN 0 END /*判断该书是否已经被借*/ IF EXISTS(SELECT * FROM TLend WHERE 图书ID=@in_BookID) BEGIN SET @out_str='该图书ID已存在' RETURN 0 END BEGIN TRAN /*开始一个事务*/ /*插入借书记录*/ INSERT INTO TLend(借书证号,ISBN,图书ID,借书时间) VALUES(@in_ReaderID,@in_ISBN,@in_BookID,GETDATE()) IF @@ERROR>0 /*如果前面一条SQL语句出错则回滚事务并返回*/ BEGIN ROLLBACK TRAN SET @out_str='执行过程中遇到错误' RETURN 0 END UPDATE TReader SET 借书量=借书量+1 WHERE 借书证号=@in_ReaderID IF @@ERROR>0 /*如果前面一条SQL语句出错则回滚事务并返回*/ BEGIN ROLLBACK TRAN SET @out_str='执行过程中遇到错误' RETURN 0 END UPDATE TBook SET 库存量=库存量-1 WHERE ISBN=@in_ISBN IF @@ERROR>0 /*如果前面一条SQL语句出错则回滚事务并返回*/ BEGIN ROLLBACK TRAN SET @out_str='执行过程中遇到错误' RETURN 0 END UPDATE TBLend SET 是否借出=1 WHERE 图书ID=@in_BookID IF @@ERROR=0 /*如果所有语句都不出错则结束事务并返回*/ BEGIN COMMIT TRAN SET @out_str='借书成功' RETURN 1 END ELSE /*如果执行出错则回滚所有操作并返回*/ BEGIN ROLLBACK TRAN SET @out_str='执行过程中遇到错误' RETURN 0 END END 这是在SQL 2008中执行的Borrow_Book过程
VB还原数据库问题,提示用户定义类型未定义
代码如下: If Text1.Text = "" Then MsgBox "请选择要恢复的数据文件!", vbInformation, "提示" Exit Sub Else ret = MsgBox("数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复,您确定要进行恢复操作吗?", vbQuestion + vbOKCancel, "提示") If ret = vbOK Then Dim cn As New ADODB.Connection Dim sn As New ADODB.Recordset Dim s_restore As String Me.MousePointer = 11 cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;server=" & d1 & ";Initial Catalog=master;Data Source=127.0.0.1;user id=sa;password=" & d3 & "" sn.Open "select spid from sysprocesses where dbid=db_id('" & Me.Combo1.Text & "')", cn Do While Not sn.EOF cn.Execute "kill " & sn("spid") sn.MoveNext Loop sn.close s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "' with REPLACE" cn.Execute s_restore 'Debug.Print gs_conn_string '此时需要连接master数据库才能完成数据恢复操作 '同上student1为需要恢复的数据库 s_restore = "restore database " & Me.Combo1.Text & " from disk='" + Trim(Text1.Text) + "'" 'text1一个用于记录需要恢复文件的地址的textbox cn.Execute s_restore cn.BeginTrans If Err.Number = 0 Then cn.CommitTrans MsgBox "数据恢复成功!", vbInformation, "提示" Command1.Enabled = True Label1.Visible = False Else cn.RollbackTrans MsgBox "数据恢复失败!", vbCritical, "提示" Command1.Enabled = True End If cn.close Set cn = Nothing Me.MousePointer = 1 Else Exit Sub End If ''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Dim DBC As New DatabaseConnection If db.State = 1 Then db.close End If db.ConnectionString = DBC.SqlConnectString(d1, d2, d3) rs.CursorType = adOpenDynamic rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic db.CursorLocation = adUseClient db.Open Set cmd.ActiveConnection = db If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If db.DefaultDatabase = " & Me.Combo1.Text & " If Err.Number Then MsgBox Err.Description, 16 + vbOKOnly, Err.Number Exit Sub End If End If ''''''''''''''''''''''''''''''''''''''''''''' 发现 Dim DBC As New DatabaseConnection这一句有问题,我改为dim dbc as new adodb.connection后提示要求对象的错误,不知道什么原因,求大神解决!急急急!!!!
VB记录集问题,大神进。急急急!
Private Sub Opt1_Click() Dim cn As New ADODB.Connection '定义数据库的连接 Dim rs As New ADODB.Recordset Dim sql1 As String Dim sql2 As String cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MZJJSFXT;Data Source=." cn.Open sql1 = "select 操作员,工号,窗口号,count(收据号)as 收据数,sum(总金额)as 金额 from 收费单据信息表 where 日期 between '" + Str(DTPDate1.Value) + "'And '" + Str(DTPDate2.Value) + "'group by 操作员,工号,窗口号" rs.Open sql1, cn, adOpenKeyset, adLockOptimistic With rs If rs.RecordCount > 0 Then MSHGrid1.Rows = MSHGrid1.Rows + rs.RecordCount Do While rs.EOF = False r = rs.AbsolutePosition + 1 MSHGrid1.TextMatrix(r, 0) = rs.Fields(0) MSHGrid1.TextMatrix(r, 1) = rs.Fields(1) MSHGrid1.TextMatrix(r, 2) = rs.Fields(2) For c = 3 To 10 Step 2 MSHGrid1.TextMatrix(r, c) = "0" Debug.Print MSHGrid1.TextMatrix(r, c + 1) MSHGrid1.TextMatrix(r, c + 1) = "0.00" Next c rs.MoveNext Loop End If End With rs.Close '用后关闭记录集 Set rs = New ADODB.Recordset For i = 0 To 2 s1 = Array("现金", "支票", "计账") sql2 = "select 操作员,工号,窗口号,count(收据号)as 收据数,sum(总金额)as 金额 from 收费单据信息表 where 结算方式='" + s1(i) + "' and 日期 between '" + Str(DTPDate1.Value) + "'And '" + Str(DTPDate2.Value) + "'group by 操作员,工号,窗口号" rs.Open sql2, cn, adOpenKeyset, adLockOptimistic With rs If rs.RecordCount > 0 Then For r = 2 To MSHGrid1.Rows - 1 rs.MoveFirst Do While rs.EOF = False If rs.Fields(0) = MSHGrid1.TextMatrix(r, 0) Then MSHGrid1.TextMatrix(r, 2 * i + 3) = rs.Fields(3) MSHGrid1.TextMatrix(r, 2 * i + 4) = Format(rs.Fields(4), "0.00") Exit Do End If rs.MoveNext Loop Next r End If End With Next i For i = 2 To MSHGrid1.Rows - 1 MSHGrid1.TextMatrix(i, 9) = Val(MSHGrid1.TextMatrix(i, 3)) + Val(MSHGrid1.TextMatrix(i, 5)) + Val(MSHGrid1.TextMatrix(i, 7)) MSHGrid1.TextMatrix(i, 10) = Format(Val(MSHGrid1.TextMatrix(i, 4)) + Val(MSHGrid1.TextMatrix(i, 6)) + Val(MSHGrid1.TextMatrix(i, 8)), "0.00") Next i rs.Close Set rs = Nothing cn.Close Set cn = Nothing MSHGrid1.Visible = True MSHGrid2.Visible = False tj1 = True End Sub 一直显示对象已打开无法进行操作这是怎么回事,我明明上一个已经关了。求大神解答
动态规划入门到熟悉,看不懂来打我啊
持续更新。。。。。。 2.1斐波那契系列问题 2.2矩阵系列问题 2.3跳跃系列问题 3.1 01背包 3.2 完全背包 3.3多重背包 3.4 一些变形选讲 2.1斐波那契系列问题 在数学上,斐波纳契数列以如下被以递归的方法定义:F(0)=0,F(1)=1, F(n)=F(n-1)+F(n-2)(n&gt;=2,n∈N*)根据定义,前十项为1, 1, 2, 3...
终于明白阿里百度这样的大公司,为什么面试经常拿ThreadLocal考验求职者了
点击上面↑「爱开发」关注我们每晚10点,捕获技术思考和创业资源洞察什么是ThreadLocalThreadLocal是一个本地线程副本变量工具类,各个线程都拥有一份线程私...
对计算机专业来说学历真的重要吗?
我本科学校是渣渣二本,研究生学校是985,现在毕业五年,校招笔试、面试,社招面试参加了两年了,就我个人的经历来说下这个问题。 这篇文章很长,但绝对是精华,相信我,读完以后,你会知道学历不好的解决方案,记得帮我点赞哦。 先说结论,无论赞不赞同,它本质就是这样:对于技术类工作而言,学历五年以内非常重要,但有办法弥补。五年以后,不重要。 目录: 张雪峰讲述的事实 我看到的事实 为什么会这样 ...
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它是一个过程,是一个不断累积、不断沉淀、不断总结、善于传达自己的个人见解以及乐于分享的过程。
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
Python 植物大战僵尸代码实现(2):植物卡片选择和种植
这篇文章要介绍的是: - 上方植物卡片栏的实现。 - 点击植物卡片,鼠标切换为植物图片。 - 鼠标移动时,判断当前在哪个方格中,并显示半透明的植物作为提示。
防劝退!数据结构和算法难理解?可视化动画带你轻松透彻理解!
大家好,我是 Rocky0429,一个连数据结构和算法都不会的蒟蒻… 学过数据结构和算法的都知道这玩意儿不好学,没学过的经常听到这样的说法还没学就觉得难,其实难吗?真难! 难在哪呢?当年我还是个小蒟蒻,初学数据结构和算法的时候,在忍着枯燥看完定义原理,之后想实现的时候,觉得它们的过程真的是七拐八绕,及其难受。 在简单的链表、栈和队列这些我还能靠着在草稿上写写画画理解过程,但是到了数论、图...
【搞定 Java 并发面试】面试最常问的 Java 并发基础常见面试题总结!
本文为 SnailClimb 的原创,目前已经收录自我开源的 JavaGuide 中(61.5 k Star!【Java学习 面试指南】 一份涵盖大部分Java程序员所需要掌握的核心知识。欢迎 Star!)。 另外推荐一篇原创:终极推荐!可能是最适合你的Java学习路线 方法 网站 书籍推荐! Java 并发基础常见面试题总结 1. 什么是线程和进程? 1.1. 何为进程? 进程是程...
西游记团队中如果需要裁掉一个人,会先裁掉谁?
2019年互联网寒冬,大批企业开始裁员,下图是网上流传的一张截图: 裁员不可避免,那如何才能做到不管大环境如何变化,自身不受影响呢? 我们先来看一个有意思的故事,如果西游记取经团队需要裁员一名,会裁掉谁呢,为什么? 西游记团队组成: 1.唐僧 作为团队teamleader,有很坚韧的品性和极高的原则性,不达目的不罢休,遇到任何问题,都没有退缩过,又很得上司支持和赏识(直接得到唐太宗的任命,既给
shell脚本:备份数据库、代码上线
备份MySQL数据库 场景: 一台MySQL服务器,跑着5个数据库,在没有做主从的情况下,需要对这5个库进行备份 需求: 1)每天备份一次,需要备份所有的库 2)把备份数据存放到/data/backup/下 3)备份文件名称格式示例:dbname-2019-11-23.sql 4)需要对1天以前的所有sql文件压缩,格式为gzip 5)本地数据保留1周 6)需要把备份的数据同步到远程备份中心,假如...
iOS Bug 太多,苹果终于坐不住了!
开源的 Android 和闭源的 iOS,作为用户的你,更偏向哪一个呢? 整理 | 屠敏 出品 | CSDN(ID:CSDNnews) 毋庸置疑,当前移动设备操作系统市场中,Android 和 iOS 作为两大阵营,在相互竞争的同时不断演进。不过一直以来,开源的 Android 吸引了无数的手机厂商涌入其中,为其生态带来了百花齐放的盛景,但和神秘且闭源的 iOS 系统相比,不少网友...
神经⽹络可以计算任何函数的可视化证明
《Neural Networks and Deep Learning》读书笔记第四篇本章其实和前面章节的关联性不大,所以大可将本章作为小短文来阅读,当然基本的深度学习基础还是要有的。主要介绍了神经⽹络拥有的⼀种普遍性,比如说不管目标函数是怎样的,神经网络总是能够对任何可能的输入,其值(或者说近似值)是网络的输出,哪怕是多输入和多输出也是如此,我们大可直接得出一个结论:不论我们想要计算什么样的函数,...
聊聊C语言和指针的本质
坐着绿皮车上海到杭州,24块钱,很宽敞,在火车上非正式地聊几句。 很多编程语言都以 “没有指针” 作为自己的优势来宣传,然而,对于C语言,指针却是与生俱来的。 那么,什么是指针,为什么大家都想避开指针。 很简单, 指针就是地址,当一个地址作为一个变量存在时,它就被叫做指针,该变量的类型,自然就是指针类型。 指针的作用就是,给出一个指针,取出该指针指向地址处的值。为了理解本质,我们从计算机模型说起...
为什么你学不过动态规划?告别动态规划,谈谈我的经验
动态规划难吗?说实话,我觉得很难,特别是对于初学者来说,我当时入门动态规划的时候,是看 0-1 背包问题,当时真的是一脸懵逼。后来,我遇到动态规划的题,看的懂答案,但就是自己不会做,不知道怎么下手。就像做递归的题,看的懂答案,但下不了手,关于递归的,我之前也写过一篇套路的文章,如果对递归不大懂的,强烈建议看一看:为什么你学不会递归,告别递归,谈谈我的经验 对于动态规划,春招秋招时好多题都会用到动态...
程序员一般通过什么途径接私活?
二哥,你好,我想知道一般程序猿都如何接私活,我也想接,能告诉我一些方法吗? 上面是一个读者“烦不烦”问我的一个问题。其实不止是“烦不烦”,还有很多读者问过我类似这样的问题。 我接的私活不算多,挣到的钱也没有多少,加起来不到 20W。说实话,这个数目说出来我是有点心虚的,毕竟太少了,大家轻喷。但我想,恰好配得上“一般程序员”这个称号啊。毕竟苍蝇再小也是肉,我也算是有经验的人了。 唾弃接私活、做外...
字节跳动面试官这样问消息队列:分布式事务、重复消费、顺序消费,我整理了一下
你知道的越多,你不知道的越多 点赞再看,养成习惯 GitHub上已经开源 https://github.com/JavaFamily 有一线大厂面试点脑图、个人联系方式和人才交流群,欢迎Star和完善 前言 消息队列在互联网技术存储方面使用如此广泛,几乎所有的后端技术面试官都要在消息队列的使用和原理方面对小伙伴们进行360°的刁难。 作为一个在互联网公司面一次拿一次Offer的面霸...
如何安装 IntelliJ IDEA 最新版本——详细教程
IntelliJ IDEA 简称 IDEA,被业界公认为最好的 Java 集成开发工具,尤其在智能代码助手、代码自动提示、代码重构、代码版本管理(Git、SVN、Maven)、单元测试、代码分析等方面有着亮眼的发挥。IDEA 产于捷克,开发人员以严谨著称的东欧程序员为主。IDEA 分为社区版和付费版两个版本。 我呢,一直是 Eclipse 的忠实粉丝,差不多十年的老用户了。很早就接触到了 IDEA...
面试还搞不懂redis,快看看这40道面试题(含答案和思维导图)
Redis 面试题 1、什么是 Redis?. 2、Redis 的数据类型? 3、使用 Redis 有哪些好处? 4、Redis 相比 Memcached 有哪些优势? 5、Memcache 与 Redis 的区别都有哪些? 6、Redis 是单进程单线程的? 7、一个字符串类型的值能存储最大容量是多少? 8、Redis 的持久化机制是什么?各自的优缺点? 9、Redis 常见性...
大学四年自学走来,这些珍藏的「实用工具/学习网站」我全贡献出来了
知乎高赞:文中列举了互联网一线大厂程序员都在用的工具集合,涉及面非常广,小白和老手都可以进来看看,或许有新收获。
为什么要推荐大家学习字节码?
配套视频: 为什么推荐大家学习Java字节码 https://www.bilibili.com/video/av77600176/ 一、背景 本文主要探讨:为什么要学习 JVM 字节码? 可能很多人会觉得没必要,因为平时开发用不到,而且不学这个也没耽误学习。 但是这里分享一点感悟,即人总是根据自己已经掌握的知识和技能来解决问题的。 这里有个悖论,有时候你觉得有些技术没用恰恰是...
互联网公司的裁员,能玩出多少种花样?
裁员,也是一门学问,可谓博大精深!以下,是互联网公司的裁员的多种方法:-正文开始-135岁+不予续签的理由:千禧一代网感更强。95后不予通过试用期的理由:已婚已育员工更有责任心。2通知接下来要过苦日子,让一部分不肯同甘共苦的员工自己走人,以“兄弟”和“非兄弟”来区别员工。3强制996。员工如果平衡不了工作和家庭,可在离婚或离职里二选一。4不布置任何工作,但下班前必须提交千字工作日报。5不给活干+...
【超详细分析】关于三次握手与四次挥手面试官想考我们什么?
在面试中,三次握手和四次挥手可以说是问的最频繁的一个知识点了,我相信大家也都看过很多关于三次握手与四次挥手的文章,今天的这篇文章,重点是围绕着面试,我们应该掌握哪些比较重要的点,哪些是比较被面试官给问到的,我觉得如果你能把我下面列举的一些点都记住、理解,我想就差不多了。 三次握手 当面试官问你为什么需要有三次握手、三次握手的作用、讲讲三次三次握手的时候,我想很多人会这样回答: 首先很多人会先讲下握...
新程序员七宗罪
当我发表这篇文章《为什么每个工程师都应该开始考虑开发中的分析和编程技能呢?》时,我从未想到它会对读者产生如此积极的影响。那些想要开始探索编程和数据科学领域的人向我寻求建议;还有一些人问我下一篇文章的发布日期;还有许多人询问如何顺利过渡到这个职业。我非常鼓励大家继续分享我在这个旅程的经验,学习,成功和失败,以帮助尽可能多的人过渡到一个充满无数好处和机会的职业生涯。亲爱的读者,谢谢你。 -罗伯特。 ...
活到老,学到老,程序员也该如此
全文共2763字,预计学习时长8分钟 图片来源:Pixabay 此前,“网传阿里巴巴要求尽快实现P8全员35周岁以内”的消息闹得沸沸扬扬。虽然很快被阿里辟谣,但苍蝇不叮无缝的蛋,无蜜不招彩蝶蜂。消息从何而来?真相究竟怎样?我们无从而知。我们只知道一个事实:不知从何时开始,程序猿也被划在了“吃青春饭”行业之列。 饱受“996ICU”摧残后,好不容易“头秃了变强了”,即将步入为“高...
Vue快速实现通用表单验证
本文开篇第一句话,想引用鲁迅先生《祝福》里的一句话,那便是:“我真傻,真的,我单单知道后端整天都是CRUD,我没想到前端整天都是Form表单”。这句话要从哪里说起呢?大概要从最近半个月的“全栈工程师”说起。项目上需要做一个城市配载的功能,顾名思义,就是通过框选和拖拽的方式在地图上完成配载。博主选择了前后端分离的方式,在这个过程中发现:首先,只要有依赖jQuery的组件,譬如Kendoui,即使使用...
2019年Spring Boot面试都问了什么?快看看这22道面试题!
Spring Boot 面试题 1、什么是 Spring Boot? 2、Spring Boot 有哪些优点? 3、什么是 JavaConfig? 4、如何重新加载 Spring Boot 上的更改,而无需重新启动服务器? 5、Spring Boot 中的监视器是什么? 6、如何在 Spring Boot 中禁用 Actuator 端点安全性? 7、如何在自定义端口上运行 Sprin...
【图解】记一次手撕算法面试:字节跳动的面试官把我四连击了
字节跳动这家公司,应该是所有秋招的公司中,对算法最重视的一个了,每次面试基本都会让你手撕算法,今天这篇文章就记录下当时被问到的几个算法题,并且每个算法题我都详细着给出了最优解,下面再现当时的面试场景。看完一定让你有所收获 一、小牛试刀:有效括号 大部分情况下,面试官都会问一个不怎么难的问题,不过你千万别太开心,因为这道题往往可以拓展出更多有难度的问题,或者一道题看起来很简单,但是给出最优解,确实很...
关于裁员几点看法及建议
最近网易裁员事件引起广泛关注,昨天网易针对此事,也发了声明,到底谁对谁错,孰是孰非?我们作为吃瓜观众实在是知之甚少,所以不敢妄下定论。身处软件开发这个行业,近一两年来,对...
面试官:关于Java性能优化,你有什么技巧
通过使用一些辅助性工具来找到程序中的瓶颈,然后就可以对瓶颈部分的代码进行优化。 一般有两种方案:即优化代码或更改设计方法。我们一般会选择后者,因为不去调用以下代码要比调用一些优化的代码更能提高程序的性能。而一个设计良好的程序能够精简代码,从而提高性能。 下面将提供一些在JAVA程序的设计和编码中,为了能够提高JAVA程序的性能,而经常采用的一些方法和技巧。 1.对象的生成和大小的调整。 J...
【图解算法面试】记一次面试:说说游戏中的敏感词过滤是如何实现的?
版权声明:本文为苦逼的码农原创。未经同意禁止任何形式转载,特别是那些复制粘贴到别的平台的,否则,必定追究。欢迎大家多多转发,谢谢。 小秋今天去面试了,面试官问了一个与敏感词过滤算法相关的问题,然而小秋对敏感词过滤算法一点也没听说过。于是,有了下下事情的发生… 面试官开怼 面试官:玩过王者荣耀吧?了解过敏感词过滤吗?,例如在游戏里,如果我们发送“你在干嘛?麻痹演员啊你?”,由于“麻痹”是一个敏感词,...
程序员需要了解的硬核知识之汇编语言(一)
之前的系列文章从 CPU 和内存方面简单介绍了一下汇编语言,但是还没有系统的了解一下汇编语言,汇编语言作为第二代计算机语言,会用一些容易理解和记忆的字母,单词来代替一个特定的指令,作为高级编程语言的基础,有必要系统的了解一下汇编语言,那么本篇文章希望大家跟我一起来了解一下汇编语言。 汇编语言和本地代码 我们在之前的文章中探讨过,计算机 CPU 只能运行本地代码(机器语言)程序,用 C 语言等高级语...
GitHub 标星 1.6w+,我发现了一个宝藏项目,作为编程新手有福了!
大家好,我是 Rocky0429,一个最近老在 GitHub 上闲逛的蒟蒻… 特别惭愧的是,虽然我很早就知道 GitHub,但是学会逛 GitHub 的时间特别晚。当时一方面是因为菜,看着这种全是英文的东西难受,不知道该怎么去玩,另一方面是一直在搞 ACM,没有做一些工程类的项目,所以想当然的以为和 GitHub 也没什么关系(当然这种想法是错误的)。 后来自己花了一个星期看完了 Pyt...
java知识体系整理,学会了,月入过万不是梦
欢迎关注个人公众号:程序猿学社 前言: 一转眼,工作4年了,正式写博客也有一年多了,之前就有整理和总结的习惯,只是都记录在有道云,感觉知识点都是很凌乱,花时间系统整理下,该文会一直同步更新,有不足之处,希望各位同行指正,既然,选择做技术这行,就得有分享的精神,而不是抱着别人会超过你的心理。希望各位博友们互相交流,互相进步。 目录 java系统学习 小白也能...
2020年去一线大厂面试先过SSM框架源码这一关!
SSM框架介绍 (1)持久层(Mybatis):Dao层(mapper) DAO层:DAO层主要是做数据持久层的工作,负责与数据库进行联络的一些任务都封装在此。 DAO层的设计首先是设计DAO的接口。 然后在Spring的配置文件中定义此接口的实现类。 然后就可在模块中调用此接口来进行数据业务的处理,而不用关心此接口的具体实现类是哪个类,显得结构非常清晰。 DAO层的数据源配置,以及有...
教你一键快速生成后台代码,这样和测试小姐姐聊天的时间又多了
教你一键快速生成后台代码,咋们作为开发人员,应该把时间精力放在业务逻辑的实现上面。
Java程序员必备基础:内部类解析
前言 整理了一下内部类的相关知识,算是比较全,比较基础的,希望大家一起学习进步。 一、什么是内部类? 在Java中,可以将一个类的定义放在另外一个类的定义内部,这就是内部类。内部类本身就是类的一个属性,与其他属性 定义方式一致。 一个内部类的例子: public class Outer { private int radius = 1; public static int co...
相关热词 c#如何定义数组列表 c#倒序读取txt文件 java代码生成c# c# tcp发送数据 c#解决时间格式带星期 c#类似hashmap c#设置istbox的值 c#获取多线程返回值 c# 包含数字 枚举 c# timespan
立即提问