求助vb 数据库添加问题

txlk33 2008-11-10 11:14:50
我目前只学了存储后结果数据添加的方法，我想了解怎样一个字段内一行一行地添加完成记录问题。
还有怎样一个字段内数据输入操作完成后，又让可以其字段的内容后面又反复添加操作呢

如
155
424
846
255
382
491
5
6 这是一个字段内三次添加的结果，14823456添加完成后，又添加524589，又添加546521，需要添加时用这种方法添加。
这个方式怎么做呢
...全文
87 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
jhone99 2008-11-11
  • 打赏
  • 举报
 回复 
Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim intCount As Integer

    Dim intEndRow As Integer

    Dim intStart As Integer



    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;Persist Security Info=False"

    

    rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic

    

    

    If rs.RecordCount > 0 Then

        While Not rs.EOF

            For i = rs.Fields.Count - 1 To 0 Step -1

                If Len(rs.Fields(1)) > intCount Then

                    intCount = Len(rs.Fields(1))

                End If

            Next i

            rs.MoveNext

        Wend

        

        rs.MoveFirst

    End If

    

'    intCount = intCount + 1

    

    With MSFlexGrid1

        .Col = Text2.Text   'Text2指定要填入的列

        

        For i = .Rows - 1 To 1 Step -1

            .Row = i

            

            If Trim(.Text) <> "" Then

                intEndRow = i

                Exit For

            End If

        Next i

        

        If intEndRow > 0 Then

            intStart = fun_get_location(Text2.Text)

            

            If intStart > 0 Then

                For m = intStart To intEndRow

                    .Row = m

                    If rs.EOF Then

                        rs.AddNew

                        rs.Fields(0) = m - i

                        rs.Fields(1) = Space(intCount) & .Text

                        rs.Update

                    Else

                        rs.Fields(1) = rs.Fields(1) & Space(intCount - Len(rs.Fields(1))) & .Text

                        rs.Update

                    End If

                    

                    rs.MoveNext

                Next m

            End If

        End If

    End With

    

    

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing



End Sub



Private Function fun_get_location(ByVal intCol As Integer) As Integer

    Dim i As Integer

    

    For i = 1 To MSFlexGrid1.Rows - 1

        Data = Data & MSFlexGrid1.TextMatrix(i, intCol)

    Next i

    

    If InStr(1, Data, Text1.Text) > 0 Then

        fun_get_location = InStr(1, Data, Text1.Text) + Len(Text1.Text)

    Else

        fun_get_location = 0

    End If





End Function



Private Sub Form_Load()

    Dim TextLine

    Dim strFileName As String

    Dim a() As String

    Dim i As Integer

    Dim j As Integer





    With MSFlexGrid1

        .Rows = 20

        .Cols = 6



        strFileName = App.Path & "\testdata2.txt"



        Open strFileName For Input As #1 ' 打开文件。



        Do While Not EOF(1) ' 循环至文件尾。

            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

            i = i + 1

            .Row = i

            For j = 1 To Len(TextLine)

                .Col = j

                .Text = Mid(TextLine, j, 1)

            Next j



        Loop



        Close #1 ' 关闭文件。

    End With



End Sub
jhone99 2008-11-11
  • 打赏
  • 举报
 回复 
Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim intCount As Integer

    Dim intEndRow As Integer



    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;Persist Security Info=False"

    

    rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic

    

    

    If rs.RecordCount > 0 Then

        While Not rs.EOF

            For i = rs.Fields.Count - 1 To 0 Step -1

                If Len(rs.Fields(1)) > intCount Then

                    intCount = Len(rs.Fields(1))

                End If

            Next i

            rs.MoveNext

        Wend

        

        rs.MoveFirst

    End If

    

'    intCount = intCount + 1

    

    With MSFlexGrid1

        .Col = Text2.Text   'Text2指定要填入的列

        

        For i = .Rows - 1 To 1 Step -1

            .Row = i

            

            If Trim(.Text) <> "" Then

                intEndRow = i

                Exit For

            End If

        Next i

        

        If intEndRow > 0 Then

            For i = 1 To intEndRow

                .Row = i

                

                If .Text = Text1.Text Then

                    For m = i + 1 To intEndRow

                        .Row = m

                        If rs.EOF Then

                            rs.AddNew

                            rs.Fields(0) = m - i

                            rs.Fields(1) = Space(intCount) & .Text

                            rs.Update

                        Else

                            rs.Fields(1) = rs.Fields(1) & Space(intCount - Len(rs.Fields(1))) & .Text

                            rs.Update

                        End If

                        

                        rs.MoveNext

                    Next m

                End If

            Next i

        End If

    End With

    

    

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing



End Sub



Private Sub Form_Load()

    Dim TextLine

    Dim strFileName As String

    Dim a() As String

    Dim i As Integer

    Dim j As Integer





    With MSFlexGrid1

        .Rows = 20

        .Cols = 6



        strFileName = App.Path & "\testdata2.txt"



        Open strFileName For Input As #1 ' 打开文件。



        Do While Not EOF(1) ' 循环至文件尾。

            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

            i = i + 1

            .Row = i

            For j = 1 To Len(TextLine)

                .Col = j

                .Text = Mid(TextLine, j, 1)

            Next j



        Loop



        Close #1 ' 关闭文件。

    End With



End Sub
jhone99 2008-11-11
  • 打赏
  • 举报
 回复 
Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim intCount As Integer

    Dim intEndRow As Integer



    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;Persist Security Info=False"

    

    rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic

    

    

    If rs.RecordCount > 0 Then

        While Not rs.EOF

            For i = rs.Fields.Count - 1 To 0 Step -1

                If Len(rs.Fields(1)) > intCount Then

                    intCount = Len(rs.Fields(1))

                End If

            Next i

            rs.MoveNext

        Wend

        

        rs.MoveFirst

    End If

    

'    intCount = intCount + 1

    

    With MSFlexGrid1

        .Col = Text2.Text   'Text2指定要填入的列

        

        For i = .Rows - 1 To 1 Step -1

            .Row = i

            

            If Trim(.Text) <> "" Then

                intEndRow = i

                Exit For

            End If

        Next i

        

        If intEndRow > 0 Then

            For i = 1 To intEndRow

                .Row = i

                

                If rs.EOF Then

                    rs.AddNew

                    rs.Fields(0) = i

                    rs.Fields(1) = Space(intCount) & .Text

                    rs.Update

                Else

                    rs.Fields(1) = rs.Fields(1) & Space(intCount - Len(rs.Fields(1))) & .Text

                    rs.Update

                End If

                

                rs.MoveNext

            Next i

        End If

    End With

    

    

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing



End Sub



Private Sub Form_Load()

    Dim TextLine

    Dim strFileName As String

    Dim a() As String

    Dim i As Integer

    Dim j As Integer





    With MSFlexGrid1

        .Rows = 20

        .Cols = 6



        strFileName = App.Path & "\testdata2.txt"



        Open strFileName For Input As #1 ' 打开文件。



        Do While Not EOF(1) ' 循环至文件尾。

            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

            i = i + 1

            .Row = i

            For j = 1 To Len(TextLine)

                .Col = j

                .Text = Mid(TextLine, j, 1)

            Next j



        Loop



        Close #1 ' 关闭文件。

    End With



End Sub
jhone99 2008-11-11
  • 打赏
  • 举报
 回复 
Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim intCount As Integer

    Dim intEndRow As Integer



    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;Persist Security Info=False"

    

    rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic

    

    

    If rs.RecordCount > 0 Then

        While Not rs.EOF

            For i = rs.Fields.Count - 1 To 0 Step -1

                If Len(rs.Fields(1)) > intCount Then

                    intCount = Len(rs.Fields(1))

                End If

            Next i

            rs.MoveNext

        Wend

        

        rs.MoveFirst

    End If

    

'    intCount = intCount + 1

    

    With MSFlexGrid1

        .Col = Text2.Text   'Text2指定要填入的列

        

        For i = .Rows - 1 To 1 Step -1

            .Row = i

            

            If Trim(.Text) <> "" Then

                intEndRow = i

                Exit For

            End If

        Next i

        

        If intEndRow > 0 Then

            For i = 1 To intEndRow

                .Row = i

                

                If rs.EOF Then

                    rs.AddNew

                    rs.Fields(0) = i

                    rs.Fields(1) = .Text

                    rs.Update

                Else

                    rs.Fields(1) = rs.Fields(1) & Space(intCount - Len(rs.Fields(1))) & .Text

                    rs.Update

                End If

                

                rs.MoveNext

            Next i

        End If

    End With

    

    

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing



End Sub



Private Sub Form_Load()

    Dim TextLine

    Dim strFileName As String

    Dim a() As String

    Dim i As Integer

    Dim j As Integer





    With MSFlexGrid1

        .Rows = 20

        .Cols = 6



        strFileName = App.Path & "\testdata2.txt"



        Open strFileName For Input As #1 ' 打开文件。



        Do While Not EOF(1) ' 循环至文件尾。

            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

            i = i + 1

            .Row = i

            For j = 1 To Len(TextLine)

                .Col = j

                .Text = Mid(TextLine, j, 1)

            Next j



        Loop



        Close #1 ' 关闭文件。

    End With



End Sub
「已注销」 2008-11-10
  • 打赏
  • 举报
 回复
描述不清
txlk33 2008-11-10
  • 打赏
  • 举报
 回复
具体点
vbman2003 2008-11-10
  • 打赏
  • 举报
 回复
还有怎样一个字段内数据输入操作完成后，又让可以其字段的内容后面又反复添加操作呢
---------------
比如:
update tb set 字段名称=值 where 主键=123
jhone99 2008-11-10
  • 打赏
  • 举报
 回复
text1 指定一列填入一列
由左到右

Private Sub Command1_Click()

    Dim cn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    Dim i As Integer

    Dim intCount As Integer

    Dim intEndRow As Integer



    cn.CursorLocation = adUseClient

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;Persist Security Info=False"

    

    rs.Open "select * from mytable", cn, adOpenStatic, adLockOptimistic

    

    

    If rs.RecordCount > 0 Then

        While Not rs.EOF

            For i = rs.Fields.Count - 1 To 0 Step -1

                If rs.Fields(i) <> Null Or rs.Fields(i) <> "" Then

                    If i > intCount Then

                        intCount = i

                    End If

                    Exit For

                End If

            Next i

            rs.MoveNext

        Wend

        

        rs.MoveFirst

    End If

    

    intCount = intCount + 1

    

    With MSFlexGrid1

        .Col = Text1.Text   'Text2指定要填入的列

        

        For i = .Rows - 1 To 1 Step -1

            .Row = i

            

            If Trim(.Text) <> "" Then

                intEndRow = i

                Exit For

            End If

        Next i

        

        If intEndRow > 0 Then

            For i = 1 To intEndRow

                .Row = i

                

                If rs.EOF Then

                    rs.AddNew

                    rs.Fields(0) = i

                    rs.Fields(intCount) = .Text

                    rs.Update

                Else

                    rs.Fields(intCount) = .Text

                    rs.Update

                End If

                

                rs.MoveNext

            Next i

        End If

    End With

    

    

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing



End Sub



Private Sub Form_Load()

    Dim TextLine

    Dim strFileName As String

    Dim a() As String

    Dim i As Integer

    Dim j As Integer





    With MSFlexGrid1

        .Rows = 20

        .Cols = 6



        strFileName = App.Path & "\testdata2.txt"



        Open strFileName For Input As #1 ' 打开文件。



        Do While Not EOF(1) ' 循环至文件尾。

            Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。

            i = i + 1

            .Row = i

            For j = 1 To Len(TextLine)

                .Col = j

                .Text = Mid(TextLine, j, 1)

            Next j



        Loop



        Close #1 ' 关闭文件。

    End With



End Sub
计算机二级（VB）
计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。课程能够帮助学习者快速入门。该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线，详细介绍了VB的相关知识点。
VB与数据库的连接步骤以相关语句
"' And密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic,"Data Source=" & Server.MapPath("数据库所在路径")2000数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称。这是第二种方法连接...
Excel导入SQL（VB.NET版）
我们从第一次机房就开始接触了数据库内容导出到Excel，机房重构的时候同样遇到了，做过VB版的也做过VB.NET版的（其实两者并没有多大差别）。考试导数据的时候用过一次将Excel导入到数据库，当时并没有深入的去想是...
数据库难还是学java难,mysql数据库比java难吗，女生学数据库难吗
数据库会不会很难学？.现在主流的数据库是SQL Server，oracle，mysql。我没做过mysql。如果你懂一门数据库语言，学习其他数据库是很容易的。只是不同的数据库针对不同的用户群体，不同的数据库之间也有一些区别。...
vb/vb.net开发精粹(16)
VB 如何添加 Excel 11 数字金字塔， 如何编写【下载论坛附件】的软件？给个思路，谢谢！ 一个高手的源码，对学打印的人很有帮助 在VB中,STR()函数与STR$()函数有什么区别 VB6如何才能加载Player.swf文件播放...
数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印，安装，报表)
社区管理员
  • 数据库(包含打印，安装，报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章