用你的开发工具做!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;

解决方案 »

  1.   

    忘了说了,我用的是VB.net,没有Dephi这么简单。
      

  2.   

    java:
    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;
    }
    }
      

  3.   

    我再补充一个ASP的,VB也适用
    <%@ 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
      

  4.   

    我再补充一个ASP的,VB也适用上面的多了一部分插入数据
    <%@ 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 
    %>