ERP Nedir? | Türkiye'nin ERP Forum Platformu : Yeni Kayit Yapilamiyor ? http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 04:27:14 +0000 Wed, 25 May 2011 13:11:24 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2612 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[Yeni Kayit Yapilamiyor ? : Mehmet Bey, Ilginize tesekkür...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14633.html#14633 Yazar: unalh
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 13:11

Mehmet Bey,
 
Ilginize tesekkür ederim.
 
]]> Wed, 25 May 2011 13:11:24 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14633.html#14633 <![CDATA[Yeni Kayit Yapilamiyor ? : Makroyu degistirdim. Baskalari...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14631.html#14631 Yazar: mbaykan
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 12:18

Makroyu degistirdim. Baskalari da yararlanabilsin

Sub Kod1Olustur()
Dim cnn, cmdCommand As Object
'On Error Resume Next
Set cnn = CreateObject("ADODB.Connection")
Dim vtSql
Dim say%
   Set cnn = CreateObject("ADODB.Connection")
   cnn.Open "driver={SQL Server};server=" & Range("b1").Value & ";uid=" & Range("b2").Value & ";pwd=" & Range("b3").Value & ";database=" & Range("b4").Value & ""
    Set cmdCommand = CreateObject("ADODB.Command")
    Set cmdCommand.ActiveConnection = cnn
   
    Range("A6").Select
    Selection.CurrentRegion.Select
    sonst = Selection.Rows.Count  '[b65536].End(3).Row
    For say = 6 To sonst
      
       vtSql = ""
       vtSql = "INSERT INTO TBLSTOKKOD1 (ISLETME_KODU,SUBE_KODU,GRUP_KOD) VALUES("   ' buradaki tirnak olmaz
       vtSql = vtSql & Cells(say, 1) & ","
       vtSql = vtSql & Cells(say, 2) & ","
       vtSql = vtSql & "'" & Cells(say, 3) & "')"    ' Text degerleri Tirnak isaretleri arasina aldim
       Debug.Print vtSql
            With cmdCommand
            .CommandText = vtSql
            .CommandType = adCmdText
            .Execute
            End With
      Next say
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
End Sub

]]> Wed, 25 May 2011 12:18:33 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14631.html#14631 <![CDATA[Yeni Kayit Yapilamiyor ? : Sorunu birtürlü asamadim örnek...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14630.html#14630 Yazar: unalh
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 11:54

Sorunu birtürlü asamadim örnek dosya ekliyorum.
 
http://www.upload.gen.tr/d.php/www/88w2y2rk/Kod1_Yeni_Kay__t.xls.html
]]> Wed, 25 May 2011 11:54:34 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14630.html#14630 <![CDATA[Yeni Kayit Yapilamiyor ? : sqlTEXT&#039;i kontrol ettiniz...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14626.html#14626 Yazar: mbaykan
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 10:13

sqlTEXT'i kontrol ettiniz mi? Debug.Print sqlText aldiginiz metni SQL'de manuel çalistirmayi deneyin. Aklima syntax probleminden baska bir sey gelmiyor.
adCommanText bir sabittir.(Enum)
]]> Wed, 25 May 2011 10:13:26 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14626.html#14626 <![CDATA[Yeni Kayit Yapilamiyor ? : mbaykan ilginize tesekkür ederim. .CommandType...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14624.html#14624 Yazar: unalh
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 08:21

mbaykan ilginize tesekkür ederim.

 
.CommandType = adCmdText --- bu satirda hata vermeye devam ediyor.
]]> Wed, 25 May 2011 08:21:08 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14624.html#14624 <![CDATA[Yeni Kayit Yapilamiyor ? : Dim cnn as Object satiri Dim cnn,...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14623.html#14623 Yazar: mbaykan
Konu: 2612
Gönderim Zamanı: 25 Mayıs 2011 Saat 00:56

Dim cnn as Object satiri
Dim cnn, cmdCommand as Object olarak degistirin

sqlText degiskenini olusturan 3 sütun görüyorum. VALUES ( içinde, GRUP_KOD ve GRUP_ISIM degerlerini tirnak (') isaretleri arasinda almaniz gerekmez mi?
sqlText=sqlText + "'"+Cells(say, ?).value + "'," seklinde
Tabloya degisken olarak GRUP_KOD ve GRUP_ISIM alanlarina deger atayacaksiniz sanirim (bir de kayit yapan kullanici ve tarih alanlari eklenebilir)
sqlText'in sonunda da VALUES ile açilan parantezin kapanmasi gerekir ki
Komutunuz SQL tarafindan hatasiz islenebilsin.

Yardimici olabildim mi? Kolay gelsin

]]> Wed, 25 May 2011 00:56:42 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14623.html#14623 <![CDATA[Yeni Kayit Yapilamiyor ? : Merhabalar, Bu kod...]]> http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14622.html#14622 Yazar: unalh
Konu: 2612
Gönderim Zamanı: 24 Mayıs 2011 Saat 13:55

Merhabalar,
 
Bu kod ile TBLSTOKKOD1 bölümüne yeni kod1 kayitlari olusturmak istiyorum fakat hata veriyor.
 
.CommandType = adCmdText --- bu satirda hata veriyor.
 
 
Sub yeni()
Dim cnn As Object
Dim vtSql
Dim say%
Dim SqlText As String
On Error Resume Next
Set cnn = CreateObject("ADODB.Connection")
Set cmdCommand = CreateObject("ADODB.Command")
strServer = "........"
strDatabase = ".........."
strKullanici = "........."
strParola = "........"
sat = [a65536].End(3).Row
 With cnn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=" & strServer & ";USER ID=" & strKullanici & ";PASSWORD=" & strParola & ";AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = strDatabase
 End With
Set cmdCommand.ActiveConnection = cnn
 For say = 6 To sat
   With cmdCommand
       SqlText = "INSERT INTO TBLSTOKKOD1 (ISLETME_KODU,SUBE_KODU,GRUP_KOD,GRUP_ISIM,KAYITYAPANKUL,KAYITTARIHI,DUZELTMEYAPANKUL,DUZELTMETARIHI) VALUES('"
       SqlText = SqlText & Cells(say, 1)
       SqlText = SqlText & Cells(say, 2)
       SqlText = SqlText & Cells(say, 3)
      .CommandText = SqlText
    .CommandType = adCmdText
    .Execute
  End With
Next
   cmdCommand.Close
   cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
End Sub
 
Ilginize simdiden tesekkür ederim.
]]> Tue, 24 May 2011 13:55:42 +0000 http://www.erpne.org/yeni-kayit-yapilamiyor_topic2612_post14622.html#14622