executeNonQuery( ) 出错了
'保存Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
Dim s As String, name As String
If txttitle.Text = "" Then
MsgBox("请输入日记标题", MsgBoxStyle.Exclamation Or MsgBoxStyle.OKOnly, "标题")
Else
name = txttitle.Text & ".txt"
s = Application.StartupPath() + "\" & txttitle.Text & ".txt"
RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)
MsgBox("保存成功", MsgBoxStyle.OKOnly, "保存文件")
Dim connstr, insertcmd As String
Dim selectComd As String = "select * from riji"
c
insertcmd = "insert into riji(title) values (" & (txttitle.Text) & ")"
Dim conn As OleDbConnection, myadapter As OleDbDataAdapter
Dim mydataset As New DataSet
Dim cmd As OleDbCommand
conn = New OleDbConnection(connstr)
conn.Open()
cmd = New OleDbCommand(insertcmd, conn)
cmd.ExecuteNonQuery()
conn.Close()
ListBox1.DataSource = mydataset.Tables("riji")
Me.ListBox1.DisplayMember = "title"
End If
End Sub
cmd.ExecuteNonQuery() 出错了。不知道怎么改，谢谢大家 insertcmd = "insert into riji(title) values ('" & (txttitle.Text) & "')" 权限问题吧，，，网站有没加匿名访问人的写的权限呢······ 应该是insertcmd = "insert into riji(title) values ('" & txttitle.Text & "')"
谢谢大家
谢谢大家帮我解决问题。插入没有问题了。有一个问题出现了：
我的 数据库 只有title 这一个字段，我希望listbox控件显示这个字段的里面的内容。现在可以往数据库里面添加了，但是lbltitle.Text = ListBox1.SelectedItem 出错，说datarowview 不能强制转换类型为string. 应该怎么才能点击listbox
选中的，并把内容给lbltitle.Text 。
页:
[1]