ShockwaveFlash Objesinde Flash Dosya Açmak

Forma 1 Tİmer 1 ShockwaveFlash objesi ekleyin. Timer ın Invertal’’ını 1000 yapıp timer1 için bu kodu yazın. (Kodlarda sh1 = ShockwaveFlash1)

Private Sub Timer1_Timer()
Dim  dosya
dosya = App.path & "\flash.swf"
End If
sh1.Movie = dosya
sh1.Play
End Sub

VB’de SQL Stored Procedure Çalıştırmak (Veri Alma Örneği)

Abone numarası girerek aboneye ait detay bilgileri almaya yarayan bir örnek.

suser = “sa”

spass = “parola”

sactive = “192.168.1.1”

bag1 = “Provider=SQLNCLI.1;Password=” & spass & “;Persist Security Info=False;User;Data Source=” & sactive

Set cmd = New ADODB.Command

cmd.ActiveConnection = bag1

cmd.CommandType = adCmdStoredProc

cmd.CommandText = “abone.dbo.usp_GuvenceBedeliAboneGosterFS”

cmd.Parameters.Append cmd.CreateParameter(“GazAboneNoGir”, adVarChar, adParamInput, 20, Text1.Text)

cmd.Parameters.Append cmd.CreateParameter(“GazAboneNo”, adVarChar, adParamOutput, 20)

cmd.Parameters.Append cmd.CreateParameter(“KisiKodu”, adVarChar, adParamOutput, 20)

cmd.Parameters.Append cmd.CreateParameter(“AdSoyad”, adVarChar, adParamOutput, 50)

cmd.Execute

Label6.Caption = cmd(“AdSoyad”)

Label7.Caption = cmd(“KisiKodu”)

Label8.Caption = cmd(“GazAboneNo”)

Set cmd.ActiveConnection = Nothing

VB’de SQL Stored Procedure Çalıştırmak (Veri Gönderme Örneği)

SQL sunucusunda oluşturduğunuz Stored Procedure’u VB’de çalıştırmak.

suser = “sa”

spass = “parola”

sactive = “192.168.1.1”

bag1 = “Provider=SQLNCLI.1;Password=” & sactivepass & “;Persist Security Info=False;User;Data Source=” & sactive

Set cmd = New ADODB.Command

cmd.ActiveConnection = bag1

cmd.CommandType = adCmdStoredProc

cmd.CommandText = “abone.dbo.usp_AboneDegisFS”

cmd.Parameters.Append cmd.CreateParameter(“eskiAbone”, adVarChar, adParamInput, 20, Text1.Text)

cmd.Parameters.Append cmd.CreateParameter(“YeniAbone “, adVarChar, adParamInput, 20, Text2.Text)

cmd.Execute

Set cmd.ActiveConnection = Nothing

      uyari = MsgBox(“Kayıt güncellendi”, vbInformation, “Açıklama”)

SQL Server’dan Veri Okuma

Aşağıdaki kodlar sayesinde sql veritabanından alınan verileri listbox’a eklersiniz.

Kodların çalışması için SQL Native Client kurulu olması gerekir.

suser = user
spass = parola

sactive = “192.168.1.1″ ‘sql sunucu ipsi

bag1 = “Provider=SQLNCLI.1;Password=” & spass & “;Persist Security Info=False;User ID=” & suser & “;Data Source=” & sactive

SQL1 = “SELECT distinct ilce_adi FROM abone.dbo.BinaAdres order by ilce_adi”
Set conn = New ADODB.Connection
    With conn
        .ConnectionString = bag1
        .Open
    End With
       Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
       .Open SQL1
        End With
     If rst.BOF = True And rst.EOF = True Then
     Else
     While Not rst.EOF() ‘ checking end of file
    List1.AddItem rst!ilce_adi
    rst.MoveNext
    Wend
    Set rst = Nothing
    conn.Close
      End If

MSFlexgrid’den Excel’e Veri Aktarma

Msflexgrid’de bulunan tüm satır ve sütunları Excel dosyasına aktarma kodu.

On Local Error Resume Next
Dim i, f2ed, path, musteriid
Set ap = GetObject(“Excel.Application”)
If Err.Number <> 0 Then
Set ap = CreateObject(“Excel.Application”): Err.Number = 0
End If
‘StatusBar1.Panels(1).Text = “4.1. Excel dosya açılıyor.”
ap.Visible = True ‘Excel programini göster.
f2ed = 1
For i = 1 To ap.Workbooks.Count
If ap.Workbooks(i).Name = dosyaadı Then
ap.Workbooks(i).Activate
a = True: f2ed = i
Exit For
Else
End If
Next
If Not a Then
Err.Number = 0
ap.Workbooks.Open App.path & “\BBTaksitRapor.xls”
For x = 0 To MSFlexGrid1.Rows – 1
For y = 0 To MSFlexGrid1.Cols – 1
MSFlexGrid1.Row = x
MSFlexGrid1.Col = y
ap.cells(x + 1, y + 1) = MSFlexGrid1.Text
Next
Next
ap.Visible = True ‘Excel programi gizle
End If