如何把普通数据和RichText的内容分别存到Access数据库中
有个问题请教
如何把RichText的内容存到Access数据库中 虽然找到说可以用AppendChunk写入Menu字段 但我还有其他的普通的字符型字段要添加 我应该怎么办?
添加其他普通字段我是调用SQL使用的
如果我想把上面的功能写在一起可以吗?
其他的代码部分
Dim temp As String
Dim Str_SQL As String
Str_SQL = "Insert Into " & Cmb_SubClass.Text _
& "(Title , T_Key , Author , Announce , Come , Summary ) Values ( " _
& "'" & Txt_Title.Text & "' , '" & Txt_Key.Text & "' , '" _
& Txt_Author.Text & "' , '" & Txt_Announce.Text _
& "' , '" & Txt_Come.Text & "' , '" & Txt_Summary.Text & "' ) "
temp = SQL(Cmb_Class.Text & ".mdb", Str_SQL)
Public Function SQL(Use As String, Str_SQL As String)
Dim Rs As New ADODB.Recordset
Rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & WorkPath(Use)
Rs.Open Str_SQL
End Function