VB把数据库查询结果生成图片
请教下,现在有个问题困扰很久了,大家给个思路,我想出数据库中查询一些数据,查询的内容想直接生成图片,请教下思路如何的~ 我想知道 所谓的数据是什么格式的什么数据。 查询出的内容 是啥东西啊? 比如:二进制类型的图片数据 sql的数据库,内容是文本的 文本的--->图片?? 生成什么样的图片?需要挤牙膏那样一点一点地问明白么? 说白了,是不是跟PDF一样只看不能改?还好了,至少LZ是跟我们讲的。换成不跟你讲的…… 从SQL数据库中取出比如是学好,姓名,然后查询的结果生成BMP格式的图片,前面不好意思没说清楚
只要生成BMP格式的图片就行,图片大小自己能控制的 窗体上放个PictureBox
用Picture1.Print "这里是图片上要打印的内容"
SavePicture Picture1.Picture,"C:\0001.bmp"
http://download.csdn.net/source/1483930 这样子啊,呵呵
Private Sub Command1_Click()
'把文本内容保存为c:\test.bmp
Dim ctlNew As Control
'先把数据库中检索出来的记录集Rst内容放到Text1里
Text1.text=Rst.GetString
'动态创建一个PICTUREBOX控件。
'然后设置PictureBox对象的一些属性
Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew", Me)ctlNew.AutoRedraw = True
ctlNew.AutoSize = True
ctlNew.Width = Text1.Width
ctlNew.Height = Text1.Height
ctlNew.BackColor = vbWhite
ctlNew.FontSize = 16'字体大小ctlNew.ForeColor = vbGreen
ctlNew.Print Text1.Text '将文本框的内容输出到PictureBox对象里
ctlNew.Picture = ctlNew.Image
SavePicture ctlNew.Picture, "c:\test.bmp"
Controls.Remove ctlNew
End Sub
大概这样子~~
重了~~哎!
我把查询结果放入DataGrid里面,然后直接DataGrid.text为什么只出来第一行第一列的数据 上查询和赋值代码
我那个代码好像有问题的,楼上的能给个例子吗,从数据库连接开始,谢谢 对头,先把大脖子累死再说
你对头怎么不见了啊
dim ConnPub as new connection
dim RstGet as new Recordset
With ConnPub
.ConnectionString = "连接字符串"
.CursorLocation = adUseClient
.Mode = ConnMode
.Open
End With
Set RstGet = ConnPub.Execute("SQL语句")
高人还在吗,这个结果里面可以添加一个表格吗
BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Picture1.AutoRedraw = True
DoEvents
BitBlt Picture1.hdc, 0, 0, MSFlexGrid1.Width, MSFlexGrid1.Height, GetDC(MSFlexGrid1.hwnd), 0, 0, vbSrcCopy
Picture1.Refresh
SavePicture Picture1.Image, "c:\111.jpg"
晕,这个不能和原来你那个代码链接起来的吗~
补充:VB , 数据库(包含打印,安装,报表)