[shnyaga]

Помогите с установкой!!!
Пишу в Delphi:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; l:=ExpandEnvironmentStrings('%SYSTEMROOT%', buf, Length(buf)); path:=Copy(buf, 1, l); CopyFile(PChar('Client\sqlncli10.dll'), PChar(path+'\system32\sqlncli10.dll'), true); CreateDirectory(PChar(path+'\system32\1033'), nil); CopyFile(PChar('Client\sqlnclir10.rll'), PChar(path+'\system32\1033\sqlnclir10.rll'), true); CopyFile(PChar('Client\s10ch_sqlncli.chm'), PChar(path+'\system32\1033\s10ch_sqlncli.chm'), true); CopyFile(PChar('Client\sqlclnt.rsp'), PChar(path+'\system32\sqlclnt.rsp'), true); list:=TStringList.Create; list.Add('tcp'); list.Add('np'); list.Add('sm'); reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0', true); reg.WriteStringList('ProtocolOrder', list); list.Clear; list.Add('sm'); list.Add('tcp'); list.Add('np'); list.Add('via'); reg.WriteStringList('ProtocolsSupported', list); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\GeneralFlags', true); reg.WriteInteger('NumberOfFlags', 2); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\GeneralFlags\Flag1', true); reg.WriteString('Label', 'Force protocol encryption'); reg.WriteInteger('Value', 0); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\GeneralFlags\Flag2', true); reg.WriteString('Label', 'Trust Server Certificate'); reg.WriteInteger('Value', 0); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\LastConnect', true); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\np', true); reg.WriteString('DLLName', 'SQLNCLI10'); reg.WriteInteger('NumberOfFlags', 0); reg.WriteInteger('NumberOfProperties', 1); reg.WriteString('ProtocolName', 'Named Pipes'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\sm', true); reg.WriteString('DLLName', 'SQLNCLI10'); reg.WriteInteger('NumberOfFlags', 0); reg.WriteInteger('NumberOfProperties', 0); reg.WriteString('ProtocolName', 'Shared Memory'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\tcp', true); reg.WriteString('DLLName', 'SQLNCLI10'); reg.WriteInteger('NumberOfFlags', 0); reg.WriteInteger('NumberOfProperties', 3); reg.WriteString('ProtocolName', 'TCP/IP'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\tcp\Property1', true); reg.WriteString('Name', 'Default Port'); reg.WriteInteger('Value', 12555); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\tcp\Property2', true); reg.WriteString('Name', 'KEEPALIVE (in milliseconds)'); reg.WriteInteger('Value', 30000); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\tcp\Property3', true); reg.WriteString('Name', 'KEEPALIVEINTERVAL (in milliseconds)'); reg.WriteInteger('Value', 1000); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\VIA', true); reg.WriteString('DLLName', 'SQLNCLI10'); reg.WriteInteger('NumberOfFlags', 0); reg.WriteInteger('NumberOfProperties', 2); reg.WriteString('ProtocolName', 'VIA'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\VIA\Property1', true); reg.WriteString('Name', 'Default Server Port'); reg.WriteString('Value', '0:1433'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\VIA\Property2', true); reg.WriteString('Name', 'Default Client NIC'); reg.WriteString('Value', '0'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\SNI10.0\np\Property1', true); reg.WriteString('Name', 'Default Pipe'); reg.WriteString('Value', 'sql\query'); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\Microsoft SQL Server Native Client 10.0\CurrentVersion', true); reg.WriteInteger('LCID', 1033); reg.WriteString('PatchLevel', '10.50.1600.1'); reg.WriteInteger('SP', 0); reg.WriteString('Version', '10.50.1600.1'); reg.CloseKey;

Когда пытаюсь подключится пишет ошибку: "Драйвер не найден, возможно он неправильно установлен"
Вот ConnectionString:

Код:

1	Provider=SQLNCLI10.1;Integrated Security="";Persist Security Info=False;Initial Catalog=Journal;Data Source=(local);Initial File Name="";Server SPN=""

[shnyaga]

Всем спасибо.
Я разобрался!!!
Я просто забыл его зарегистрировать в ODBC драйверах