Update and Dowload file bằng VBA access và Sql server

Liên hệ QC

cuongtokyo0240

Thành viên mới
Tham gia
21/5/18
Bài viết
37
Được thích
4
Hiện tại em đang muốn tạo 1 chương trình như sau
Trong forms Access tạo 2 nút bấm gồm 1 nút Update - 1 nút Dowload
Nhiệm vụ thực hiện là : Lựa chọn file update lên server .Sau đó là click vào file đó là dowload file đó về máy tính .
Hình minh họa e vẽ như bên dưới ạ.
 

File đính kèm

  • demo_26062018.PNG
    demo_26062018.PNG
    18 KB · Đọc: 25
Lần chỉnh sửa cuối:
Hiện tại em đang muốn tạo 1 chương trình như sau
Trong forms Access tạo 2 nút bấm gồm 1 nút Update - 1 nút Dowload
Nhiệm vụ thực hiện là : Lựa chọn file update lên SQL server .Sau đó là click vào file đó là dowload file đó về máy tính .
Hình minh họa e vẽ như bên dưới ạ.

Trong Access thì file chắc là một cái accdb gì đó.
Nhưng đối với SQL Server thì file là cái gì? Chả lẽ import cả một đống tables, cộng với mớ schema trong cái file kia?

@thớt: câu hỏi mà bôi đậm trông nhức con mắt lắm.
 
giong nhu tren web , ban up file roi ng khac dowload ve may tinh .
no hoat dong giong nhu vay
Làm việc với phát triển ứng dụng (application development), tôi sợ nhất là ba việc:
1. Viết tắt - ngôn ngữ lập trình nó đã a b c tùm lum rồi, bây giờ ngôn ngữ trao đổi cũng a b c d thì đoán mệt lắm. Để đầu óc tính giải thuật tốt hơn
2. Viết tiếng Việt không dấu - như 1, hao tổn năng lượng đoán, không còn đâu để giải quyết vấn đề
3. Dùng tiếng Anh những chỗ không cần dùng - lắm lúc dùng sai, đoán trật lất.
Có lẽ tôi khong thích hợp với thớt này, khó nói chuyện tiếp.
 
Trong Access thì file chắc là một cái accdb gì đó.
Nhưng đối với SQL Server thì file là cái gì? Chả lẽ import cả một đống tables, cộng với mớ schema trong cái file kia?

@thớt: câu hỏi mà bôi đậm trông nhức con mắt lắm.
Mình có thể kiểm soát dữ liệu từ SQLServer đến file Access mà anh, đâu nhất thiết phải import hết vào SQLServer.
 
Mình có thể kiểm soát dữ liệu từ SQLServer đến file Access mà anh, đâu nhất thiết phải import hết vào SQLServer.
Làm trực tiếp như vậy thì tuỳ thuộc vào chủ (admin) của SQL Server. Nếu nó cho phép kết nối thì chỉ việc lập cái script hay proc mở openrowset.
Nếu muốn chuyên nghiệp hơn thì mua mấy cái phần mềm chuyên sync.
 
Làm trực tiếp như vậy thì tuỳ thuộc vào chủ (admin) của SQL Server. Nếu nó cho phép kết nối thì chỉ việc lập cái script hay proc mở openrowset.
Nếu muốn chuyên nghiệp hơn thì mua mấy cái phần mềm chuyên sync.
Em thì hay dùng cái Linked Servers, thấy cũng ổn.
 
Em thì hay dùng cái Linked Servers, thấy cũng ổn.
em thi cũng chưa rõ cái cài đặt Linked Servers nhưng hiện tai thì em đã viết xong chương trình này rồi ạ.
Tren vba em khai báo 1 số function và 1 stored procedure insert .

Cách thức hoạt động của nó giống như anh up file và dowload file như trên các trang web Fshare ....
 
em thi cũng chưa rõ cái cài đặt Linked Servers nhưng hiện tai thì em đã viết xong chương trình này rồi ạ.
Tren vba em khai báo 1 số function và 1 stored procedure insert .

Cách thức hoạt động của nó giống như anh up file và dowload file như trên các trang web Fshare ....

Cứ từng bước đơn giản mà làm. Cũng chưa cần tư duy quá cao siêu đâu bạn. Cách bạn làm cũng là phổ thông của nhiều người. Cách chuyên gia thì khi nào đến tầm đó thì bạn mới có thể áp dụng.
 
Cứ từng bước đơn giản mà làm. Cũng chưa cần tư duy quá cao siêu đâu bạn. Cách bạn làm cũng là phổ thông của nhiều người. Cách chuyên gia thì khi nào đến tầm đó thì bạn mới có thể áp dụng.
.
SQL Server là một phần mềm quản lý CSDL hoàn chỉnh. Trước khi nói chuyện làm việc với nó thì phải cho biết tầm vực quản lý.

Nếu admin là người khác thì hầu hết các kết nối và truy cập đều phải có phép của admin. Và trường hợp này thì chính admin sẽ là ngừoi đưa ra đáp án vẹn toàn nhất. Cũng chính admin này sẽ theo dõi hiệu quả và chỉnh sửa quy trình.

Nếu chỉ là mọt cái SQL Server (vd phiên bản Express) nhỏ xíu, ai muốn làm gì cũng được thì mới nói chuyện thử VBA này nọ.
 
Cứ từng bước đơn giản mà làm. Cũng chưa cần tư duy quá cao siêu đâu bạn. Cách bạn làm cũng là phổ thông của nhiều người. Cách chuyên gia thì khi nào đến tầm đó thì bạn mới có thể áp dụng.
Vâng cảm ơn anh đã góp ý. cách thức hoạt động của vấn đề thì em hiểu nhưng lúc thực hiện nó lại còn liên quan đến toàn bộ hệ thống trong ứng dụng nữa à. Hôm bữa anh góp ý trên Fb em cũng đã tìm hiểu qua rồi ạ :)
Bài đã được tự động gộp:

đay là StoredProcedure em viết hôm kia . em nghĩ anh nhìn là hiểu .
Trong đoạn này có vài chỗ em viết băng Tiếng Nhật thì chỉ là Tên Hiển thi và các dòng chú thích thôi ạ.

USE [svn_info]
GO
/****** Object: StoredProcedure [dbo].[SPナレッジSUB_添付IN] Script Date: 2018/06/28 13:08:02 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

--作成 Nguyen Cao Cuong 2018/06/25

ALTER PROCEDURE [dbo].[SP_dataIN]
(
@KBCD INT
, @Tenfile VARCHAR(200)
, @FILEPATH VARCHAR(200)
, @dinhdang VARCHAR(20)
, @filename INT OUTPUT
, @ERR INT OUTPUT
, @cnt INT OUTPUT
)
AS
DECLARE @max_file INT
SET @max_file = 3
BEGIN TRY
BEGIN TRANSACTION
--Lấy số thứ tự file
SET @cnt = (SELECT ISNULL(MAX(CNT), 0) + 1 FROM DBナレッジ添付 WHERE KBCD = @KBCD)
IF @cnt <= @max_file
BEGIN
--添付データ作成
INSERT INTO DBナレッジ添付 (
KBCD
, CNT
, Tenfile
, FILE_PATH
, dinhdang
)
SELECT
@KBCD
, @cnt
, @Tenfile
, @FILEPATH
, @dinhdang
--FILENAME取得
SET @filename = (SELECT FILE_NAME FROM DBナレッジ添付 WHERE KBCD = @KBCD AND CNT = @cnt)
SET @ERR = 0
END
ELSE
SET @ERR = 2
--トランザクション確定
COMMIT TRANSACTION
END TRY
BEGIN CATCH
--エラー時ロールバック
ROLLBACK TRANSACTION
SET @ERR = 1
END CATCH
GO
 
Lần chỉnh sửa cuối:
.
SQL Server là một phần mềm quản lý CSDL hoàn chỉnh. Trước khi nói chuyện làm việc với nó thì phải cho biết tầm vực quản lý.

Nếu admin là người khác thì hầu hết các kết nối và truy cập đều phải có phép của admin. Và trường hợp này thì chính admin sẽ là ngừoi đưa ra đáp án vẹn toàn nhất. Cũng chính admin này sẽ theo dõi hiệu quả và chỉnh sửa quy trình.

Nếu chỉ là mọt cái SQL Server (vd phiên bản Express) nhỏ xíu, ai muốn làm gì cũng được thì mới nói chuyện thử VBA này nọ.

Có lẽ chủ topic chỉ ứng dụng mức đơn giản cũng như đã tự quản trị Sql server ở doanh nghiệp. Vì câu hỏi như trên của bạn ý có thể đoán rồi.
 
Web KT
Back
Top Bottom