hi vbers sekalian
aq mw minta tolong nich...
da yg tw ga gimana cara nya mengeksekusi t-sql didalam visual basic
cth:
aq da t-sql seperti dibawah ini
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name =
N'contoh')
DROP DATABASE [contoh]
GO
CREATE DATABASE [contoh] ON (NAME = N'contoh_Data', FILENAME =
N'C:\Program Files\Microsoft SQL Server\MSSQL\data\contoh_Data.MDF' ,
SIZE = 1, FILEGROWTH = 10%) LOG ON (NAME = N'contoh_Log', FILENAME =
N'C:\Program Files\Microsoft SQL Server\MSSQL\data\contoh_Log.LDF' ,
SIZE = 1, FILEGROWTH = 10%)
COLLATE SQL_Latin1_General_CP1_CI_AS
GO
exec sp_dboption N'contoh', N'autoclose', N'true'
GO
exec sp_dboption N'contoh', N'bulkcopy', N'false'
GO
exec sp_dboption N'contoh', N'trunc. log', N'true'
GO
exec sp_dboption N'contoh', N'torn page detection', N'true'
GO
exec sp_dboption N'contoh', N'read only', N'false'
GO
exec sp_dboption N'contoh', N'dbo use', N'false'
GO
exec sp_dboption N'contoh', N'single', N'false'
GO
exec sp_dboption N'contoh', N'autoshrink', N'true'
GO
exec sp_dboption N'contoh', N'ANSI null default', N'false'
GO
exec sp_dboption N'contoh', N'recursive triggers', N'false'
GO
exec sp_dboption N'contoh', N'ANSI nulls', N'false'
GO
exec sp_dboption N'contoh', N'concat null yields null', N'false'
GO
exec sp_dboption N'contoh', N'cursor close on commit', N'false'
GO
exec sp_dboption N'contoh', N'default to local cursor', N'false'
GO
exec sp_dboption N'contoh', N'quoted identifier', N'false'
GO
exec sp_dboption N'contoh', N'ANSI warnings', N'false'
GO
exec sp_dboption N'contoh', N'auto create statistics', N'true'
GO
exec sp_dboption N'contoh', N'auto update statistics', N'true'
GO
if( (@@microsoftversion / power(2, 24) = 8) and (@@microsoftversion &
0xffff >= 724) )
exec sp_dboption N'contoh', N'db chaining', N'false'
GO
use [contoh]
GO
if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[FK_Anggota_Grup]') and OBJECTPROPERTY(id,
N'IsForeignKey') = 1)
ALTER TABLE [dbo].[Anggota] DROP CONSTRAINT FK_Anggota_Grup
GO
if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[Anggota]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Anggota]
GO
if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[Grup]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Grup]
GO
if not exists (select * from dbo.sysusers where name = N'guest' and
hasdbaccess = 1)
EXEC sp_grantdbaccess N'guest'
GO
CREATE TABLE [dbo].[Anggota] (
[KodeAng] [varchar] (5) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[NamaAng] [varchar] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[KodeGrup] [varchar] (5) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL
) ON [PRIMARY]
GO
CREATE TABLE [dbo].[Grup] (
[KodeGrup] [varchar] (5) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[NamaGrup] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[Anggota] WITH NOCHECK ADD
CONSTRAINT [PK_Anggota] PRIMARY KEY CLUSTERED
(
[KodeAng]
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[Grup] WITH NOCHECK ADD
CONSTRAINT [PK_Grup] PRIMARY KEY CLUSTERED
(
[KodeGrup]
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[Anggota] ADD
CONSTRAINT [FK_Anggota_Grup] FOREIGN KEY
(
[KodeGrup]
) REFERENCES [dbo].[Grup] (
[KodeGrup]
) ON DELETE CASCADE ON UPDATE CASCADE
GO
aq dah liat cr nya pake sqldmo atau sqlnamespace tp seperti nya ga
berhasil.
bagi yg tw mohon jawabannya ya
thx b4
