用你的开发工具做!delphi:procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
ADOTable1.Post;
end;
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
ADOTable1.Post;
end;
解决方案 »
- 请教个字符串截取
- 用一个用户在sqlserver建立一个表,想控制其他用户访问的权限:具体是不让别人看见表中的一列(只显示成为*),其他列可以看到。
- sql语句中,数字的最大值用什么符号表示,如select * from t1 where aa>100 and aa<最大值,这个最大值用什么表示呢?
- 高手请指点一下,两表修改问题“?????
- sql server 2000 与sql server 2005 是不是不能同时按装在一台机器上
- 如何获取指定的数据?
- 订阅发布时产生错误
- ◆◇调查一下这里的同行们的职业年龄◇◆
- 这条语句那里错了??谢谢!!!!!!!!!
- 查询用到十几个表(数据量近10W),这样的语句如何优化,或者说表结构如何优化?
- 百思不得其解的N''
- 高分再次求救记录倒置,在线等待.........高手进来看我句子
import java.util.*;
import java.io.*;
import java.sql.*;
import java.lang.*;
/**将一个图像文件保存到数据库中
*/
public class ImageTry {
public static void main(String[] args){
Connection conn = getConnection();
PreparedStatement pstm =null;
Statement stm =null;
ResultSet res = null;
FileInputStream fin = null;
try{
File f = new File("image.jpg");
fin = new FileInputStream(f);
String sql_1=" insert into table1(col_02) values(?)";
//列col_02是image类型的
pstm = conn.prepareStatement(sql_1);
pstm.setBinaryStream(1,fin,(int)f.length());
pstm.executeUpdate();
fin.close();
stm = conn.createStatement();
String sql_2="select col_02 from table1";
res = stm.executeQuery(sql_2);
if(res!= null && res.next()){
outImage(res.getBinaryStream("col_02"));
}
}catch(Exception e){
e.printStackTrace(System.out);
}finally{
if(fin != null){
try{
fin.close();
}catch(IOException e){}
}
if(res != null){
try{
res.close();
}catch(SQLException e){}
}
if(stm != null){
try{
stm.close();
}catch(SQLException e){}
}
if(pstm != null){
try{
pstm.close();
}catch(SQLException e){}
}
if(conn != null){
try{
conn.close();
}catch(SQLException e){}
}
}
}
/**
* 写到一个文件
*/
static void outImage( InputStream din)
throws IOException{
File f = new File("im.jpg");
FileOutputStream fout = null;
try{
fout = new FileOutputStream(f);
int b ;
while((b = din.read() )!=-1){
fout.write(b);
}
}finally{
if(din != null){
try{
din.close();
}catch(IOException e){}
}
if(fout != null){
try{
fout.close();
}catch(IOException e){}
}
}
}
/**取出一个连接
*/
public static Connection getConnection(){
String sDBDriver="sun.jdbc.odbc.JdbcOdbcDriver";
String sConnStr="jdbc:odbc:Test;UID=sa;PWD=";
Connection ObjectCon=null;
try{
Class.forName(sDBDriver);
ObjectCon=DriverManager.getConnection(sConnStr);
}catch(Exception Error){
System.out.println(Error);
}
return ObjectCon;
}
}
<%@ Language=VBScript %>
<% response.buffer=true formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf & bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Server"connGraph.Open set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM Testimage",connGraph,1,3 rec.addnew rec("myImage").appendchunk mydata rec.update rec.close
%>set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM Testimage",connGraph,1,3 rec.addnew rec("myImage").appendchunk mydata rec.update rec.close
<%@ Language=VBScript %>
<% response.buffer=true formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) & chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf & bncrlf)+4 dataend=instrb(datastart+1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) set connGraph=server.CreateObject("ADODB.connection") connGraph.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Server"connGraph.Open set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM Testimage",connGraph,1,3 rec.addnew rec("myImage").appendchunk mydata rec.update rec.close
%>读取数据
<%@ Language=VBScript %>
<%
dim g_ID,g_PicID
g_ID=trim(Request.QueryString("ID"))
g_PicID=trim(Request.QueryString("PicID"))
strsql="select myImage from TestImage where ID=" & Request("ID")SQLString="SELECT Image" & g_PicID & " FROM TB_Memorabilia WHERE ID = " & g_ID
CmdString.CommandText = SQLString
CmdString.CommandType = 1
Set CmdString.ActiveConnection = ADOConn
Recordsets.Open CmdString ,,3,1Response.ContentType = "image/*" Response.BinaryWrite Recordsets(0).getChunk(7500000) Recordsets.close
%>