[dis] Câu lạc bộ Visual Foxpro Hấp dẫn nhất từ trước đến nay !!!!!!

[tranhoa_ps]

Help Meeeeee!!!
Mọi người hỗ trợ giúp với hiện tôi có dữ liệu 1 bảng là doanhthu bao gồm
MSNV , Nam ,doanhthu
001 2011 100.000
002 2011 120.000
001 2012 152.000
003 2012 250.000
002 2010 54.000
003 2009 60.000

Giờ tôi muốn cho dữ liệu vào 1 bảng có cấu trúc
MSNV DT2010 DT 2011 DT2012
001 0 100.000 152.000
002 54.000 120.000 0
003 60.000 0 250.000
với DT2010 là dữ liệu từ năm 2010 trở về trước

Bác nào thạo giúp e với e chạy toàn mất dữ liệu

- Cái này đễ thôi, đây là dạng report động hoặc data động theo cột
- Bạn có thể liên hệ với mình, mình OK cho
- Vì đa số VFP lưu dữ liệu theo dạng file yyyymm hoặc mmyyyy sau một thời gian có nhu cầu tập hợp dữ liệu để báo cáo. Vì muốn bảng báo cáo dễ nhìn hoặc để tiện truy xuất trong việc lấy dữ liệu phải không bạn ?

[dungpt88]

Các Bác ơi! Em có ai biết làm thế nào để inport file excel 2007 hoặc 2010 vào VFP8 không chỉ giúp em với ạ

[luongvancanh]

Các Bác ơi! Em có ai biết làm thế nào để inport file excel 2007 hoặc 2010 vào VFP8 không chỉ giúp em với ạ

Bạn save excel qua dạng file CSV rồi dùng VFP import vào

[luongvancanh]

Chào các chiến hữu.
Tôi muốn viết một đoạn code để chuyển file excel có font unicode vào table của VFP và đổi font thành VNI. Tôi gặp khó khăn là khi đưa dữ liệu vào table của VFP thì dùng hàm chuyển font của tayngangfoxpro không có tác dụng vì dữ liệu unicode trong table đã bị hỏng do VFP không support unicode.
Làm cách nào nhờ các chiến hữu chỉ giáo
cảm ơn

[Hải Âu]

Bạn nên dùng phần mềm khác (Vietkey tools chẳng hạn) để chuyển mã font cuả file Excel (Unicode sang VNI) trước khi Import vào VFP.

[hungtuan61]

Chào các chiến hữu.
Tôi muốn viết một đoạn code để chuyển file excel có font unicode vào table của VFP và đổi font thành VNI. Tôi gặp khó khăn là khi đưa dữ liệu vào table của VFP thì dùng hàm chuyển font của tayngangfoxpro không có tác dụng vì dữ liệu unicode trong table đã bị hỏng do VFP không support unicode.
Làm cách nào nhờ các chiến hữu chỉ giáo
cảm ơn

Cần lưu ý là chỉ có VFP 9 mới hổ trợ font Unicode.Vì vậy dùng hàm của tayngangfoxpro hay của ai khác cho VFP dưới 9 cũng không thực hiện được

- - - Updated - - -

Chào các chiến hữu.
Tôi muốn viết một đoạn code để chuyển file excel có font unicode vào table của VFP và đổi font thành VNI. Tôi gặp khó khăn là khi đưa dữ liệu vào table của VFP thì dùng hàm chuyển font của tayngangfoxpro không có tác dụng vì dữ liệu unicode trong table đã bị hỏng do VFP không support unicode.
Làm cách nào nhờ các chiến hữu chỉ giáo
cảm ơn

Cần lưu ý là chỉ có VFP 9 mới hổ trợ font Unicode.Vì vậy dùng hàm của tayngangfoxpro hay của ai khác cho VFP dưới 9 cũng không thực hiện được

[tranhoa_ps]

Các Bác ơi! Em có ai biết làm thế nào để inport file excel 2007 hoặc 2010 vào VFP8 không chỉ giúp em với ạ

PROCEDURE ketnoiEXCEL
PARAMETERS chuoi_EXCEL
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, lcSQLCmd AS STRING, lnSuccess AS INTEGER, lcConnstr AS STRING
lcXLBook = chuoi_EXCEL
lcConnstr = [Driver=] + [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + [DBQ=] + lcXLBook
IF !FILE(lcXLBook)
*kiem tra file
RETURN .F.
ENDIF
lnSQLHand = SQLSTRINGCONNECT(lcConnstr)
IF lnSQLHand < 0
*kiem tra ket noi
RETURN
ENDIF
*-- Connect successful if we are here. Extract data...
baoloi=0
on error baoloi=error()
lcSQLCmd = [Select * FROM "Sheet1$"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
ON ERROR
IF lnSuccess > 0
* lay du lieu … OK - viet tiep
ELSE

ENDIF
SQLDISCONNECT(lnSQLHand)
RETURN

[tranhoa_ps]

Chào các chiến hữu.
Tôi muốn viết một đoạn code để chuyển file excel có font unicode vào table của VFP và đổi font thành VNI. Tôi gặp khó khăn là khi đưa dữ liệu vào table của VFP thì dùng hàm chuyển font của tayngangfoxpro không có tác dụng vì dữ liệu unicode trong table đã bị hỏng do VFP không support unicode.
Làm cách nào nhờ các chiến hữu chỉ giáo
cảm ơn

Việc này bạn tìm lại đi, trên mạng đã có Class về chuyển đổi fonts rồi
SET CLASSLIB ThuVienFont ADDITIVE
FUNCTION Vni2KhongDau

PROCEDURE ChuyenFont_abc

oChuyenFont_VNI2UTF
Có đầy đủ hết đó bạn ơi, từ VNI,UNICODE,ABC
CÓ GÌ LIÊN HỆ MÌNH SẼ GIÚP CHO về cách sử dụng Fonts VNI và Unicode giữa VFP và dotNET sử dụng trên 1 Database

[lovefox]

Cac anh giup do cho em xin doan code create table in remote database (db2).

Em dung lenh duoi day nhung khong tao duoc.
n = SQLCONNECT('datasource','user','pass')
SQLEXEC(n,"CREATE TABLE TempRef (id CHAR(6) NULL)")

Em dang can gap cac anh tro loi giup em trong hom nay nhe.
Cam on cac anh nhieu.

[tranhoa_ps]

- - - Updated - - -

Cac anh giup do cho em xin doan code create table in remote database (db2).

Em dung lenh duoi day nhung khong tao duoc.
n = SQLCONNECT('datasource','user','pass')
SQLEXEC(n,"CREATE TABLE TempRef (id CHAR(6) NULL)")

Em dang can gap cac anh tro loi giup em trong hom nay nhe.
Cam on cac anh nhieu.

hConn = SQLStringConnect("Driver=SQL Server;Server=TRANHOA;Database=QuanLyTaiSan;Uid=;P wd=")
IF hConn > 0
SQLEXEC(hConn,"CREATE TABLE TempRef (id CHAR(6) NULL)")
SQLDisconnect(hConn)
ELSE
MESSAGEBOX('can not',16,'Computer')
ENDIF
*------------------------------
CHÚC BẠN THÀNH CÔNG