Delphiye Karşı Excel

[ertline]

coderlord dediği gibi Office 2003 ten sonra bunu destekliyor.Ama terminal makinada veri girildiğinde diğer makinadan veri girilince görülebiliyormuş.Yani dosyayı kapatmasına gerek yok,kayıt moduna geçmesi ve etmesi yeterli.
Arkadaşlar bu proje büyük(cari-Stok kayıtları-fatura -çek-sipariş-perakende satış -barkod-taksitlendirme-kasa ..... )bu bağlamda değerlendirelim.yoksaki her iş için program yazmak şart değil coderlord un dediği gibi.Fakat bu proje ufak değil.

[ALUCARD]

arkadaşlar şöyle birşey de var

bence bu arkadaş makro yazmasını iyi biliyorsa bu proje acces de de yazabilir.

ordada makrolarla hallediliyor nihayetinde

aralarında cok fazla bir fark yok

[MakPRO]

Excell in alt yapısı bunu kaldırsa idi Microsoft firması bunun lansmanını çoktan yapardı. Excell bir database in sunduğu güvenlik, stable çalışma ortamı ve esnekliğine sahip değildir. Bu yüzden ciddi bir proje için progam yazmak amaçlı değil raporların düzenlenmesi amacıyla kullanılacak bir tablolama programı olarak dizayn edilmiştir. Böyle şeylere takılıp moralinizi bozmayın bence

[Kuri_YJ]

Selamlar,

Çok şaşırdım doğrusu !... Küçük bir bakkal dükkanı için veya muhasebe bürasonda bazı hesaplar için eyvallah da, bahsettiğiniz yer bir fabrika !!!!!

Mantıklı olalım arkadaşlar, fabrika (eğer 100-200 çalışanı var ise) hali nicedir?

[hdayi]

Olacağı şu,
Bir müddet kullandıktan sonra, "aa olmuyormuş" derler. Ama iş işten gçmiş olur.
Bi de bu excel macroları için bilmem kaç yıl deneyimli, delphi, c, c++, veritabanı, html, flash, vs vs bilen birini alırlar işe tam olur

[turkcanfidan]

Bence o fabrika yönetimi çok amatör. Büyük olasılıkla aile şirketidir. Ya da fazla teknoloji ile işi olmayan bir fabrika.

[MakPRO]

Zaten firma sahipleri bilmediği için bildikleri birine güveniyolar .Bence güvendikleri adam mantar çıkmış neyse bazılarımızın boşa harcıcak zamanı ve parası varmış anlaşılan

[ertline]

Tespitiniz çok yerinde arkadaşlar firma sahibi aslında teknolojiye meraklı olmasına rağmen bu konularda bilgili olmaması yüzünden ilk görüştüğü kişiye sen başla demiş.Aslında bir kaç teklif alıp ve ilgili kimselere danışması gerekir.Ama sonradan başı ağrıyacaktır.O zaman anlar diyelim.
Yorumlarınız için teşekkürler...

[pro_imaj]

Yok yaw Office 2003 te destekliyor.

Bunu öğrenmem iyi oldu. Teşekkürler hocam.

Yukarıdakilere ek olarakta raporlar devirler vs çok zor olur kısacası excel günlük işlemlerin rahat yapılabileceği bir office programı vt yapısı olarak kullanılması mantık dışı !!!

Saygılarımla
Kolay gelsin.

[bobasturk]

merhaba,

naçizane şunu söylemek istiyorum. konuyu araştırma ve öğrenme açısında bu karşılaştırmaya bir şey diyemeyeceğim gayet faydalı bir tartışma (fikir paylaşımı manasında) oldu. fakat firebird bedava excel ile yapmaya çalışana kadar firebird ile yapılabilir ve daha güzel sağlam olur kanaatindeyim ve özellikleri daha fazla

kolay gelsin

[kelaynak2]

Arkadaşlar biraz Asp bilen çok kolaylıkla Word ve Excel makrolarıyla veritabanına bağlanabilir.Visual Basic düzenleyicisinden Tools-References den Microsoft AcitiveX Data Objest 2.1 çentiklendikten sonra Asp de olduğu gibi tüm veritabanları komutları çalışıyor.Aşağıdaki kodda veritabanındaki verileri arraya attıktan sonra veritabanını kapatıyorum. Çokda güzel çalışıyor.
Bu nedenle excell'in 65.000 satırı ile sınırlı kalınmadan Accessle birlikte rahatlıkla bir program yapılabilir.

Kod: Tümünü seç

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public yol As String
Public arsucadi() As String 'array
Public arkonu() As String 'array

Public Sub muzbaglan()
Dim gesayi As Integer
Dim q As String
Dim i As Integer
Dim gest As String

'yol = ActiveDocument.AttachedTemplate.Path & Application.PathSeparator _
    & "veriler.mdb"
 yol = "C:\Program Files\tablo\" & "veriler.mdb"

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
 yol & ";Jet OLEDB:database Password=''"
q = " SELECT * FROM Muzekkere ORDER BY aciklama"
rs.Open q, conn, 1, 3
gesayi = rs.RecordCount
If gesayi > 0 Then
gesayi = gesayi - 1 'Dynamik arraylar sıfır indisli olduğundan
End If
ReDim arsucadi(gesayi, 3) 'birinci satir,2.sutun=açıklama-makam-mahal-indis=0

ReDim arkonu(gesayi)
i = 0
Do While Not rs.EOF

If IsNull(rs("aciklama")) Then
gestr = "Açıklama Yok"
Else
gestr = rs("aciklama")
End If

arsucadi(i, 0) = gestr


If IsNull(rs("makam")) Then 'null olursa arraya girerken hata verdiğinden
gestr = "" 'makam yok
Else
gestr = rs("makam")
End If
arsucadi(i, 1) = gestr

If IsNull(rs("Makamyeri")) Then 'null olursa arraya girerken hata verdiğinden
gestr = "Hayır" 'makamyeri default olsun.
Else
gestr = rs("Makamyeri")
End If
arsucadi(i, 2) = gestr


If IsNull(rs("notlar")) Then
gestr = "" 'konu yok
Else
gestr = rs("notlar")
End If

arkonu(i) = gestr
rs.MoveNext
i = i + 1
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub