标题:[求助]想写一个VB.NET+SQL的winform上传软件,不知道怎么写,谁能帮帮我?
取消只看楼主
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
结帖率:100%
 问题点数:0 回复次数:7 
[求助]想写一个VB.NET+SQL的winform上传软件,不知道怎么写,谁能帮帮我?
我是一个初学者,想写一个的winform上传软件,不知道怎么写。
想达到的基本功能:
用这个软件只能上传小于 5MB的word文件,并将文件保存到指定的文件夹,SQL数据库记录保存路径、上传人名字、日期。
就像实现这么一个功能,在网上找了很多资 料 找不到合适的 不知道该怎么写,谁能帮帮我啊?


[ 本帖最后由 weichch123 于 2010-4-19 00:00 编辑 ]
搜索更多相关主题的帖子: SQL NET winform 软件 
2010-04-18 23:35
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
没人肯帮我吗?
2010-04-18 23:49
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
~~~~~~
2010-04-19 00:01
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
嗯 也对 可能要创建两个程序 一个服务器端 一个客户端
2010-04-19 22:00
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
如果是用FTP的话 就不需要写程序了 到处都能下载到 哎
2010-04-19 22:04
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
嗯 谢谢 不说也罢 希望能有个例子 因为我实在不会写 想有个例子学习一下
2010-04-21 23:51
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
研究了半天,仿照网上写了这样的代码,但是不能上传WORD文件,这个要怎么修改才能上传word文件?

Imports System
Imports System.Drawing
Imports System.Collections
Imports
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing.Imaging
Imports
Imports System.Data.SqlClient

Public Class Form1
  Private fs As FileStream
  Private ds As DataSet
  Private conn As New SqlConnection("server=localhost;database=ceshi;integrated security=true;")
  Private currentpos As Integer = 9

  Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
  Dim Opendlg As New OpenFileDialog
  Opendlg.Title = "Select a picture file"
  Opendlg.Filter = "(*.doc)|*doc|(*.jpg)|*.jpg"
  Opendlg.ShowDialog()
  lblPath.Text = Opendlg.FileName.ToString()
  fs = New FileStream(Opendlg.FileName.ToString(), FileMode.Open, FileAccess.Read)
  'PictureBox1.Image = Image.FromFile(Opendlg.FileName.ToString())
  End Sub

  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
  Dim sqlcomm As New SqlCommand
   = "INSERT INTO employees (lastname,firstname,photo) VALUES (@lastname,@firstname,@photo)"
  sqlcomm.Connection = conn
  Dim Data(fs.Length) As Byte
  fs.Read(Data, 0, Int(fs.Length))
  Dim prm1 As New SqlParameter("@lastname", txtLN.Text)
  Dim prm2 As New SqlParameter("@firstname", txtFN.Text)
  Dim prm3 As New SqlParameter("@photo", SqlDbType.VarBinary, Int(fs.Length), ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Current, Data)
  sqlcomm.Parameters.Add(prm1)
  sqlcomm.Parameters.Add(prm2)
  sqlcomm.Parameters.Add(prm3)
  Try
  conn.Open()
  sqlcomm.ExecuteNonQuery() '执行插入语句
  conn.Close()
  fs.Close()
  Catch ex As Exception
  MsgBox(ex.Message)
  End Try
  End Sub
End Class
2010-04-22 16:10
weichch123
Rank: 1
来 自:中华人民共和国
等 级:新手上路
帖 子:16
专家分:0
注 册:2009-5-20
得分:0 
改了 还是不行 我想知道怎么打开上传到SQL里面的word文件?
2010-04-23 22:24



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-303533-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.200307 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved