谁愿意帮我啊,谢谢了啊,我不会啊

会者不难,可是难者不会啊,因为我不会

sk可是我这几天等着要用啊,临时抱佛脚有用吗,以后我会加油的,可是现在我就过不去啊,你们能把代码写给我吗

嗯,我也知道啊,只是我现在等着要用啊,没有时间了啊

你怎么没有屿心啊,我现在是没有退路啊,要不我会这样吗,我没有时间啊,过了这关后我一定好好学习,以后遇到别人不懂的我一定会先帮他们解决问题而不是在这里说道理,我会挂科的啊

[em01]

嗯

自己来解决自己的问题,求人不如求己::
Option Explicit

Dim fileName As String
Private Sub Command1_Click()
'将文本框中的信息添加到列表框中
Dim i As Integer
With ListView1.ListItems.Add()
.Text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
Next i
End With
End Sub

Private Sub Command2_Click()
'删除列表框中信息
If ListView1.ListItems.Count > 0 Then
If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End If
End Sub

Private Sub Form_Load()
Dim tpStr As String, i As Integer, j As Integer
Me.Caption = "通讯录"
For j = 0 To 4
Text1(j).Text = ""
Next j

fileName = App.Path & "\data.txt"
If Dir(fileName) <> "" Then
'加载数据
Open fileName For Input As #1
Do While Not EOF(1)
With ListView1.ListItems.Add()
For i = 0 To 4
Line Input #1, tpStr
If i = 0 Then
.Text = tpStr
Else
.SubItems(i) = tpStr
End If
Next i
End With
Loop
Close #1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
Dim tpList As ListItem
'保存数据
Open fileName For Output As #1
For Each tpList In ListView1.ListItems
Print #1, tpList.Text
For i = 1 To 4
Print #1, tpList.SubItems(i)
Next i
Next tpList
Close #1
End Sub

Dim con
Dim link, sql As String

Set con = CreateObject("ADODB.Connection")
link = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
link = link & "Data Source=" & App.Path & "\DATA\UserData.mdb"
sql = "delete * from temp"
con.Open link
rs.Open sql, con, 3, 3 '写入数据库

Set rs = Nothing
con.Close
Set con = Nothing