
VB.NET 如何将SQL保有的RTF文件显示在Richtextbox中 5
我有一个Richtextbox控件Richtextbox1,想通过SQL查询返回的RTF文件内容,显示在Richtextbox1,查阅了网上很多资料,但还是没办法完成,请...
我有一个Richtextbox控件Richtextbox1,想通过SQL查询返回的RTF文件内容,显示在Richtextbox1,查阅了网上很多资料,但还是没办法完成,请问有没有高手给小弟指点一二?
感激不尽!
Dim cn As New System.Data.SqlClient.SqlConnection(DATApath)
cn.Open()
Dim cmd As New System.Data.SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = cn
cmd.CommandText = "select 内容 from InformData where 主题 = '关于产品介绍'"
Dim myds As New DataSet
Dim myadapter As New SqlDataAdapter
myadapter.SelectCommand = cmd
myadapter.Fill(myds, "InformData")
If myds.Tables("InformData").Rows(0).Item(0).ToString <> "" Then
‘中间这里这里怎么写?’
End If
cn.Close()
cn.Dispose() 展开
感激不尽!
Dim cn As New System.Data.SqlClient.SqlConnection(DATApath)
cn.Open()
Dim cmd As New System.Data.SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = cn
cmd.CommandText = "select 内容 from InformData where 主题 = '关于产品介绍'"
Dim myds As New DataSet
Dim myadapter As New SqlDataAdapter
myadapter.SelectCommand = cmd
myadapter.Fill(myds, "InformData")
If myds.Tables("InformData").Rows(0).Item(0).ToString <> "" Then
‘中间这里这里怎么写?’
End If
cn.Close()
cn.Dispose() 展开
1个回答
展开全部
richTextBox1.Rtf=myds.Tables("InformData").Rows(0).Item(0).ToString()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询